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astantes de los programas existentes hoy en día 
nacieron con el propósito de mantener una fle- 
-xibilidad y adaptabilidad que les permitieran te- 
ner aplicación en la mayor parte de los campos 
posibles. El ejemplo más representativo al res- 
pecto es el BASIC. Sin embargo, aunque han te- 
nido y tienen una gran difusión, no han logrado 
ese objetivo; se han quedado tan sólo en el «ser- 
vir un poco para todo pero mucho para nada», 
lo que les le de trabajos donde se requiere una gran poten- 
cia en determinadas áreas de la programación. 

Este hueco es cubierto precisamente por unos lenguajes mu- 
cho menos difundidos y conocidos, que tienen un campo muy li- 
mitado donde intervenir, pero que en él desarrollan toda su ca- 
pacidad y potencia. Claras muestras de ellos son el FORTRAN 
(FORmula TRANslation) y el COBOL (COmmon Business-Oriented 
Language). 

El primero destaca especialmente en el campo de la compu- 
tación científica. Su u primera versión (FORTRAN Il) nació en 1956. 
Actualmente se usa mayoritariamente el FORTRAN-77. 

El COBOL, por contra, se centra en las actividades comercia- 
les, siendo capaz de un manejo eficaz de datos. Utilizado por pri- 
mera vez en los años sesenta, la versión más extendida es la 66, 
aunque el COBOL-80 está “a punto de caramelo”. 


LOS LENGUAJES 


a transmisión de las informaciones al interior de 
un ordenador se obtienen mediante la codifica- 
ción de las señales eléctricas intercambiadas 
entre los diversos dispositivos que constituyen 
la estructura funcional. 

En realidad, la señal eléctrica elemental 

puede tomar solamente dos niveles, a los cua- 
les se les asocian los estados “0” y “1”, respec- 
Sal tivamente. 
Por consiguiente, si se trabaja con una sola señal únicamente 
se podrían intercambiar dos informaciones. Es evidente, pues, que 
doblando la complejidad de los circuitos se podrán tratar cuatro 
informaciones diferentes (00,01, 10, 11), triplicándola se podrán tra- 
tar ocho informaciones (000, 001, 010, 011, 100, 101, 110, 111) y así 
sucesivamente, siguiendo el esquema lógico de que a un número 
"n” de circuitos corresponderán 2" informaciones “binarias”. 

Un ordenador, para poder funcionar, tiene la necesidad de re- 
conocer informaciones de "tipo" diverso, por cuanto que ha de po- 
der distinguir si una combinación de cifras binarias corresponde 
a un comando a ejecutar, al dato que ha de procesar o a la direc- 
ción (la posición “geográfica”) de una celda de memoria. 

Esto es así porque un ordenador, además de ejecutar los co- 
mandos que se le dan uno tras otro, está en condiciones de “di- 
gerir” una lista completa y de controlar, de forma autónoma, el 
modo en que seguir la lista de las instrucciones o, lo que es lo mis- 
mo, el “programa” que se le proporciona. 

En efecto, el diálogo con los primeros ordenadores se reali- | 
zaba mediante la introducción “material” de secuencias de “0” y 
*1” en las celdas destinadas a contener las instrucciones de pro- 
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grama, lo que limitaba enormemente la dimensión de los proce- 
dimientos realizables. 

Este código de diálogo directo con el ordenador se denomi- 
na código máquina 


Evolución 


Más adelante, las reglas.del "lenguaje” experimentaron algu- 
nos cambios para permitir una mayor agilidad en la programa- 
ción; se asignaron nombres simbólicos a las posiciones de memo- 
ria y se condensaron en algunos símbolos las características de 
cada operación. Por ejemplo, la instrucción: 


ADD A, 4 


tenía el significado de añadir el valor 4 al contenido de la celda 
de memoria definida como A y de conservar el resultado de la 
suma en dicha celda. Un programa escrito según una sintaxis se- 
mejante es mucho más fácil de manejar por cuanto que presenta 
relaciones mnemónicas entre la acción que se quiere realizar y el 
conjunto de caracteres que la representa, pero tiene necesidad 
de traducirse a código máquina para que lo comprenda el orde- 
nador. Esta traducción se realiza, a su vez, por un programa de- 
nominado ensamblador, el cual lee una a una las líneas del pro- 
grama fuente y las transíorma en el correspondiente conjunto de 
instrucciones en binario, creando el denominado código objeto. 

Este último será, en una fase sucesiva, el programa efectiva- 
mente ejecutado. La instrucción "ADD A, 4” se transformaría una 
vez traducida, por ejemplo, en el conjunto de dígitos binarios 
11000110 00000100. 

No obstante, el lenguaje ensamblador es característico de 
cada máquina particular y ello hacía bastante difícil la definición 
de códigos mnemónicos universalmente utilizables y dificultaba 
el empleo del mismo programa en ordenadores diferentes. 

Una posterior evolución de los lenguajes de programación ha 
puesto de manifiesto la necesidad de dialogar con los ordenado- 
res en formas más próximas a los modos de expresión de los se- 
res humanos. Así nacieron los lenguajes de alto nivel, en los cua- 
les las instrucciones siguen reglas sintácticas similares a las de 
las lenguas habladas (sobre todo del inglés) y, para las operacio- 
nes de tipo matemático, las reglas algebraicas, mientras que los 
comandos se expresan mediante verbos y vocablos que indican 
directamente el sionificado de la operación a realizar. En un len- 
guaje de alto nivel el programador no tiene necesidad alguna de 
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conocer la estructura interna del ordenador en que trabaja, pero 
puede utilizar el mismo programa en ordenadores diferentes con 
la certeza de obtener efectos idénticos. 

Por ejemplo, la instrucción FORTRAN 


A=B+1 


producirá el efecto de sumar 1 al valor contenido en la posición 
de memoria indicada por B y de conservar el resultado en la po- 
sición identificada por A, con la ventaja adicional de reproducir 
las notaciones del álgebra y, por consiguiente, de ser fácilmente 
comprensible. 

La instrucción COBOL 


MOVE ZERO TO VAR_A 


J 
la re 
no intér- 


le transiot- 


nes de la corrección sintáctica de las instrucciones. La compila- 
ción exige mucho tiempo, pero el programa objeto resultante es 
muy rápido. 

En los intérpretes, por el contrario, las dos fases son simultá- 
neas, por cuanto que controlan directamente la ejecución del pro- 
grama. En efecto, las instrucciones, una tras otras, son objeto de 
lectura, se decodifican según las indicaciones sintácticas, se tra- 
ducen a las instrucciones elementales correspondientes y, final- 
mente, se ejecutan. Si bien trae consigo la repetición de ciclos de 
operaciones (ya que el mismo comando se decodifica cada vez 
que se le encuentra), permite una puesta a punto del programa 
más fácil, habida cuenta de que la corrección de un error se efec- 
túa de manera inmediata. 


Tipos de lenguajes 


Desde los años cincuenta hasta el momento presente han na- 
cido muchos lenguajes; algunos de ellos con el objeto de permitir 
que el programador sea completamente independiente de las es- 
tructuras de los ordenadores, otros orientados a la resolución de 
los problemas que plantean necesidades particulares de los usua- 
rios, otros concebidos para mejorar el estilo de programación y 
la estructuración lógica del análisis de un problema y otros (los 
más jóvenes) tienen la pretensión de constituir “el lenguaje uni- 
versal". » 

Entre los del primer tipo recordamos a los lenguajes ALGOL 
y FORTRAN, nacidos con marcadas connotaciones de tipo cientí- 
fico; el COBOL y el RPG, muy apreciados en el ámbitq comercial; 
el PL/1, que constituye una tentativa de conciliación de las exi- 
gencias de los dos campos anteriores, y el BASIC, bastante más 
reciente, concebido para fines didácticos, pero acogido con tal en- 
tusiasmo en el ámbito de los ordenadores personales que ha lle- 
gado a alcanzar un grado de difusión que se podría considerar 
como universal. 

En el segundo grupo se pueden citar: el APT, utilizado para 
la descripción de los movimientos de las herramientas en las má- 
quinas de control numérico; el STRESS, para la resolución de pro- 
blemas de ingeniería estructural; el SIMULA; para los modelos de 
simulación; el GTL; para problemas de tipo geométrico y tecnoló- 
gico y los lenguajes adaptados a la preparación de sesiones de 
aprendizaje, tales como TUTOR, PILOT y COURSE-WRITER. 

En el tercer grupo están incluidos los lenguajes de tipo es 
tructurado, tales como PASCAL, FORTH, PROLOG y LISP, algunos 
de los cuales son idóneos para abordar los problemas de los sis- 
lemas expertos y los relativos al mundo de la inteligencia artifi- 
cial. Estos lenguajes tienen una forma sintáctica muy similar a la 
utilizada para expresar los resultados de un análisis. 

En el último grupo podemos incluir el lenguaje C, potente y 
complejo, que permite la “portabilidad” casi total entre ordenado- 
res diferentes, y el ADA, que tiene su origen en el Departamento 
de Defensa de los Estados Unidos, nacidos ambos con el objetivo 
reivindicado de constituir patrones universales. 


FORTRAN 


Las bases para el nacimiento del Fortran fueron puestas en el 
año 1954 por el equipo de trabajo de John Backus (IBM) que, va- 
lorando las dificultades planteadas por la programación en ensam- 
blador, decidió obtener un compilador más flexible que fuese uti- 
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linable por un ordenador del tipo 704. Nació así el denominado 

IBM Mathematical FORmula TRANslation system, es especialmen 
plo en la formulación de procedimientos para la tesólución de 
lem le tipo mentífñioc 

Muy pronto constituyó un punto de referencia para produc- 
los análogos de los otros fabricantes de ordenadores y para la pro- 
pia IBM que, impulsada por los poseedores de modelos diferen- 
les del 704, realizó versiones del compilador Fortran utilizables 
para los diversos modelos de sus ordenadores. A causa de la exis- 
lencia de varias decenas de compiladores Fortran, todos ellos in- 
compatibles entre sí, al comienzo de los años sesenta el ANSI 
(American National Standards Institute) puso en marcha el proce- 
so de unificación de las características del lenguaje para depurar- 
lo de las peculiaridades presentadas por las diferentes máquinas. 
En el año 1966 apareció de forma oficial la versión definitiva es- 
tándar, denominada Fortran 66. 

En los años sucesivos, el gran desarrollo de la cultura infor- 
mática, la difusión de los ordenadores en campos en donde la na- 
luraleza de los problemas favorece el aspecto de gestión sobre 
el aspecto científico y el nacimiento de lenguajes especializados 
de mayor potencia hicieron necesarias modificaciones de la ver- 
sión oficial de Fortran. 

Iniciada en 1969 y terminada en 1977, la revisión de las carac- 
lerísticas del lenguaje estándar definió el Fortran 77, versión que 
con respecto a las anteriores presenta el potenciamiento de algu- 
nas funciones y la posibilidad de tratamiento de cadenas de ca- 
racteres, lo que antes era prácticamente imposible. 

La facilidad de empleo y la capacidad 


dad de defimr funciones 
matemáticas complejas constituyen los puntos 


tuertes del Fortran 
treinta años de vida activa han sido testigos de la realización de 
proyectos complejos en los campos industrial y aeronáútico 
(Boeing, Apt y Nasa) y de la difusión de instrumentos operativos 
“escritos” en Fortran en el campo estadístico, gráfico, en la reso- 
lución de problemas de análisis numérico y estructural, en la me- 
todología de los modelos y en la investigación en general. 

Por otra parte, una de las características principales del For- 
tran es la de poder escribir subrutinas, es decir, pequeños con- 
juntos de instrucciones aptas para resolver problemas recurren- 
tes, susceptibles de activación por cualquier prograna y que cons- 
tituyen un banco de software propiamente dicho. 

Por otra parte, se han realizado muchas bibliotecas (coleccio- 
nes de subprogramas) que permiten abordar los problemas típi- 
cos de cada área de aplicación; así quien tenga necesidad de es- 
cribir un nuevo programa podrá tener acceso a una gran canti- 
dad de subrutinas ampliamente probadas, lo que le supondrá un 
gran ahorro de tiempo en la escritura y pruebas correspondien- 
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tes. Habida cuenta de la gran cantidad de programas existentes 
en Fortran no será fácil suplantarle en el campo científico a no ser 
por un lenguaje que presente características evidentemente su- 
periores en flexibilidad y potencia. 


COBOL 


El Cobol es un gigante en el campo de los lenguajes de alto 
nivel; su difusión a nivel empresarial, elgran número de procedi- 
mientos escritos y en funcionamiento y los tiempos y el trabajo 
destinados a hacerles operativos son datos que será preciso te- 
ner en cuenta en la hipótesis de su sustitución por lenguajes to- 
davía mejor estructurados. 

El Cobol (Common Business Oriented Language) nació en 
1960 para resolver problemas de gestión. La comisión de repre- 
sentantes del Pentágono de Estados Unidos, de fabricantes de or- 
denadores y de usuarios que patrocinó las primeras versiones dio 
también vía libre a un proceso de A continuas que 
PEO como SpisOS final el EC A 74 


importanc Ss sc TOCEeS! Op dich El com- 
pilador Cobol está dano: de un peta conjunto de instruccio- 
nes para la gestión de datos de diversa naturaleza, tales como va- 
riables y constantes, denominaciones simbólicas complejas, rea- 
grupamientos, vectores, tablas, registros y ficheros. En particular, 
los ficheros, que son conjuntos de datos rígidamente estructura- 
dos en registros y campos, pueden procesarse según diversas 
modalidades, que van desde el acceso secuencial, que permite 
tratar todos los registros uno tras otro, a la organización con ínoi- 
ce, que permite recuperar todas las informaciones contenidas en 
un registro mediante la indicación de su clave de acceso. 

Además, es posible controlar simultáneamente varios pues- 
tos de trabajo y tener acceso a los propios ficheros por parte de 
varios usuarios, así como transmitir e intercambiar datos entre di- 
ferentes unidades. 

Por otra parte, resulta prácticamente imposible resolver un 
problema científico con un programa en Cobol por la ausencia de 
funciones tales como las trigonométricas, matemáticas, etc. 

Un sector en el que el Cobol ds ser de gran utilidad es 
la gestión de tablas y la impresión de informes, es decir, en la pre- 
sentación de los datos en forma Organizada, que se facilita mu- 
cho por las definiciones de los tipos de datos que considera el len- 
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Otras características peculiares son la rigidez del lenguaje 
que, no obstante, favorece la “portabilidad” entre sistemas diferen- 
los y la autodocumentación de los procedimientos, debido a la 
puntual y sofisticada sintaxis (en lengua inglesa) de todas las ins- 
Irucciones, que se acerca a la prosa. 

En la práctica, el Cobol se utiliza para.actividades en las cua- 
les los archivos de datos, normalmente de grandes dimensiones, 
ostán sometidos a actualizaciones y manipulaciones monótonas y 
repetitivas, tal como sucede en los procedimientos de contabili- 
dad, pagos e ingresos, gestión de almacenes, de bibliotecas y de 
hospitales y para las operaciones de introducción de datos de 
gran magnitud. 
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COMPILADORES 


os programas escritos en lenguaje de alto nivel, 
frente a su innegable ventaja de ser fácilmente 
manejables, legibles, controlables y autodocu- 
mentados, presentan la característica de produ- 
cir, una vez compilados, un código objeto lige- 
ramente más “engorroso” que el programa co- 
rrespondiente escrito en código máquina. Ello 
es explicable considerando que a cada coman- 
do del lenguaje de alto nivel corresponde en có- 
digo máquina una subrutina que debe conservar la característica 
de generalizarse y tener en cuenta todas las posibles excepcio- 
nes, por lo que en la mayor parte de los casos resuelve el pro- 
blema para el que se creó con un gran número de instrucciones 
y, por consiguiente, exige un tiempo mayor de ejecución. , 

En realidad, el precio a pagar, en términos de tiempo de pro- 
ceso, haría necesaria la valoración, caso por caso, del lenguaje pre- 
ferible para cada parte del programa. Por otro lado, un programa 
escrito en muchos de los lenguajes actuales está en condiciones 
de "llamar” a un código objeto producido por la compilación de 
programas fuente escritos en otros lenguajes; esta posibilidad se 
va extendiendo cada vez más a los lenguajes de las nuevas ge- 
neraciones. 


El problema común de los compiladores 

La lógica de programación y la estructura de un ordenador 
imponen que cualquier lenguaje, instrucción por instrucción, pro- 
porcione siempre la respuesta a cuatro interrogantes: 
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e de qué naturaleza es el dato a procesar; 

e dónde se encuentra; 

e a qué operación debe someterse; 

e en dónde conservar el resultado de la operación. 


Por consiguiente, en cada comando se deberán encontrar las 
indicaciones relativas a cada una de ellas. 

La memoria de un ordenador es un gigantesco casillero y 
cada una de las celdas que lo constituyen está identificada por su 
dirección en el interior del mapa que describe su estructura. 

A algunas celdas se les atribuye un significado particular por- 
que en ellas están depositadas informaciones de tipo general ne- 
cesarias para el funcionamiento de todo el sistema y se le prohi- 
be al usuario la posibilidad de modificar su contenido. 

A otras celdas se les atribuye el cometido de “aparcamiento” 
de informaciones proporcionadas por el usuario, pero el destino 
de su contenido está preestablecido por el ordenador. 

Por último, otras celdas pueden ser controladas directamente 
por el usuario. 

Un programa rellena, pues, en el interior de la memoria de un 
ordenador, un conjunto particular de celdas cuyo contenido se 
lee, examina e interpreta según los principios de funcionamiento 
del ordenador y del lenguaje. 

Por el contrario, en lo que respecta al tipo de dato a procesar, 
es necesario recordar que todas las celdas de memoria tienen la 
misma capacidad y, por ello, contienen información de la misma 
longitud, aunque los datos, dependiendo de su propia naturaleza, 
pueden ocupar una o varias posiciones de memoria. 

El esquema de representación "binana" más utilizado en los 
ordenadores es el que corresponde a 8 unidades de información 
(cada unidad, 1 bit, puede valer 0 ó 1) con 256 (2%) combinaciones 
diferentes, definiéndose a un grupo de 8 bits con el nombre de 
byte. 

La mayor parte de los ordenadores, al ser 256 un número su- 
ficiente para la representación de los símbolos más frecuentemen- 
te utilizados (alfabéticos, numéricos, caracteres especiales de pun- 
tuación, etc.), adopta la dimensión mínima de celda de memoria 
igual a 1 byte. 

En condiciones normales en un programa, las informaciones 
están en la forma de cadenas de caracteres (por ejemplo, la frase 
"ésta es una cadena”) o de números de diferente tipo (números 
enteros, de coma flotante, de doble precisión) y cada una de ellas 
ocupa una cantidad distinta de celdas de memoria. 

Puesto que las informaciones son controladas mediante va- 
riables simbólicas de las cuales, en definitiva, se procesa el con- 
tenido, se hace indispensable conocer la longitud del espacio ocu- 


16 


pudo por cada dato, por cuanto que el programa podrá llevar ásí 

lodos los datos (y las variables) a una zona especial en celdas de 

memoria contiguas y referirse a cada uno de ellos especificando 

uImplemente la dirección en donde puede encontrarse la primera 

volda que les corresponde. El número de celdas sucesivas que le 

perlenecen está en correspondencia directa con el tipo de dato. 
Examinemos el programa: . 


con el cual efectuamos una suma entre los valores atribuidos a 
dos variables y conservamos el resultado en una tercera. 

Dentro de la zona de memoria destinada a los programas, los 
comandos se transformarán en las instrucciones siguientes: 


e Primer comando 


Celdan2 1-Inserta el valor 2 en la celda cuya dirección 
está especificada en las celdas siguientes (2 y 
3) y que se refiere a una variable entera. 

Celdan* 2-Primera parte de la dirección de la-variable. 

Celdan?* 3-Segunda parte de la dirección de la variable. 


e Segundo comando 


Celdan*2 4-Inserta el valor 5 en la celda cuya dirección 
está especificada en las celdas siguientes (5 y 
6) y que se refiere a una variable entera. 

Celdan* 5-Primera parte de la dirección de la variable, 

Celdan* 6-Segunda parte de la dirección de la variable. 


e Tercer comando 


Celdan2 7-Lee el valor contenido en la celda cuya direc- 
ción está especificada en las celdas siguientes 
(8 y 9). 

Celda n2 8-Primera parte de la dirección. 

Celdan* 9-Segunda parte de la dirección. 

Celda n210-Suma el valor contenido en la celda cuya di- 
rección está especificada en las celdas si- 
guientes (11 y 12). 

Celda n2 11 -Primera parte de la dirección. 

Celdan* 12-Segunda parte de la dirección. 
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Celda n* 13 - Inserta el valor resultante en la celda cuya di- 
rección está especificada en las celdas si- 
guientes (14 y 15) y que se refiere a una va- 
riable entera. 

Celda n? 14 - Primera parte de la dirección. 

Celda n2 15 - Segunda parte de la dirección. 


Si el tipo de variables hubiera sido diferente, por ejemplo de 
coma flotante, cada una de ellas hubiera ocupado cuatro celdas; 
el contenido de las celdas 5, 6 y 11, 12 hubiera estado en la di- 
rección, 20 y el de las celdas 14 y 15 estaría en la dirección 24. 


Celda n.? 1 
24 
á El contenido es la dirección 16 
4 
5 z A 
El contenido es la dirección 18 
6 
7 
8 : A 
El contenido es la dirección 16 
9 
10 
11 
El contenido es la dirección 18 
12 
13 
14 . ; z 
El contenido es la dirección 20 
15 
Zona de datos 
16 
Variable A 
17 
18 : 
Variable B 
19 
20 
Variable C 


21 . 


Figura 1.— Indicación y localización de las variables de un progra- 
ma en la memoria. 
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Una última observación aclarará el motivo de la diferente ocu- 
pación de memoria de los OS e de SQÍGR:. 


Cal la Car “áC 
Gn- 
=2ne la 


“el número de 


cluyo ndo los espacios) 
IN -OCUD ae: 
límeros enteros se suelen conservar en dos bytes, lo que 
po rmitiría tratar los números desde 00000000 00000000 « A Mun 
11111111, es decir, desde O a 65565. Para aprovechar mejor la cir- 
úuitería del ordenador se prefiere considerar negativos todos los 
números que tienen el primer bit igual a 1, pero leyéndolos como 
"il fueran las cifras de un cuentakilómetros girado al contrario, por 
lo que 11111111 11111111 corresponderá a -1, 11111111 11111110 
corresponderá a -2, y así sucesivamente hasta -32768 (10000000 
00000000). Los números positivos tendrán como límite superior 
| vato ve 
meros reales, en los cuales la presencia de la coma 
hace problemático al tratamiento de las cifras significativas, se 
conserva el mecanismo de considerar negativos los números con 
el primer bit igual a 1, se desplaza la coma hasta obtener un nú- 
mero comprendido entre O y 1 y se utilizan los primeros bytes 
para conservar las cifras significativas y el último para conservar 
ol número de cifras en las que se desplazó la coma. Por consi- 
quiente, el número 124,546 se conservará como 0,124546 x 10%, La 
( 'antidad 124546 se o en 108 a bytes y 03 en el 


var, se 


s bytes. Los números O ronasriados con “do- 
ble rección Súeled utilizar 8 bytes. 
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FORTRAN 


Variables 
as variables utilizadas en Fortran se identifican 
por un nombre alfabético o 1lMfanumérico cuy: 

Enteras INTEGER 

Reales REAL 

Doble precisión DOUBLE PRECISION 
Complejas COMPLEX 
De caracteres CHARACTER 
Lógicas LOGICAL 
Solamente las dos primeras son usadas por defecto. A falta 
dicación, el Fortran reconoce como enteras todas las varia 

las O “omii | J, ] M y 


LOL 
una letra). 
1 las variables puede modificarse oin- 
legrarse. Si se quisiera especificar, por ejemplo, como enteras, 
contrariamente a sus definiciones implícitas, las variables que co- 
mienzan con A, B, C y F, se tendrá que utilizar: 


pS | 
y 


mo reales, todas las que comiencen por otra 
(un nombre de variable comienza siempre con 


IMPLICIT INTEGER (A-C,F) 


mientras que para introducir los demás tipos de variables o para 
definir una variable como perteneciente a una categoría determi- 


21 


nada se tendrán que utilizar las definiciones deseadas en corres- 
pondencia con cada una de ellas. Por consiguiente: 


REAL JOTA 
DOUBLE PRECISION HACHE 
COMPLEX CALC1, CALC2 
CHARACTER*10 CADENA 


comunicará al compilador que la variable JOTA es real, HACHE 
es de doble precisión, CALC1 y CALC2 son complejas y CADE- 
NA es una cadena alfanumérica de 10 caracteres, 

Los valores de doble precisión difieren de los reales por el 
hecho de contener un número mucho mayor de cifras significati- 
vas, mientras que los números complejos son valores identifica- 
dos por sus coordenadas (parte real y parte imaginaria) en un pla- 
no. Las variables CHARACTER son conjuntos de caracteres de los 
cuales es preciso declarar la dimensión si es mayor que 1. 

Las variables lógicas pueden tomar solamente los valores: 


.TRUE. (Verdadero) 
FALSE. (Falso) 


correspondientes a -1 y 0, y se utilizan para valorar la condición 
de expresiones particulares. 


Vectores y Matrices 


Cuando se quiere trabajar con listas de valores del mismo 
tipo, identificables cada uno mediante el número de orden de la 
posición que ocupa en la lista, se habla de vectores. 

La especificación de un vector es necesaria porque el com- 
pilador tiene la necesidad de conocer el espacio ocupado por el 
bloque completo de datos; así: 


DIMENSION SERIE(20) 


especifica que se utilizará en el curso del programa un conjunto 
de variables reales (por defecto) denominadas SERIE(1), SERIE(2), 
SERIE(20) que, en memoria, identifican un bloque de 80 posicio- 
nes consecutivas (20*4). Si deseamos especificar el número y el 
tipo de los elementos de un vector es suficiente la indicación de 
su categoría, lo que permite ahorrar una instrucción. Por consi- 
guiente: 


INTEGER SERIE(15) 
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lendrá el doble objeto de especificar que se dimensiona un vec-' 
lor de 15 elementos y que se trata de variables enteras. 

Naturalmente, se puede trabajar con vectores de todos los ti- 
we incluidos en el Fortran, a condición de especificar cada vez 
1 entegoría, el nombre y el número de elementos. 

es ob] r la numeración de los elementos 

de 1 al número máximo, por cuanto que los lími- 
lan pueden redefinirse. Así: 


INTEGER ESTADO (-10:10) 
DOUBLE PRECISION CUENTA (0:20) 


obligatorio consige 


] 


aes 


indicarán un vector de valores enteros accesibles mediante un ín- 
ilice que va desde -10 a 10, el primero, y un vector de valores 
de doble precisión con un índice que varía desde 0 a 20, el se- 
dgundo. 
También es pos stores multiíndice (matri 
| les un elemento se re- 
1 cada uno de los índices. El 
vaso de índices es lo que se conoce como matriz bidimensional. 
Consideremos, por ejemplo, un archivo de 1000 fichas, cada 
una de las cuales está subdividida en 15 líneas y cada línea divi- 
dida en 8 columnas. El contenido de la sexta columna de la cuarta 
linea de la ficha 201 será, entonces, identificado por el elemento 


FICHA (201,46) 


E E SN 
iDle trabajal con vec 


1105 NIVe 


res tomado 


El número máximo de dimensiones es 1. 

Los elementos de un vector multidimensional están dispues- 
los en memoria de modo que se colocan como primeros los ele- 
mentos con el índice que cambie con mayor rapidez y como úl- 
limos los que tengan el índice que cambia con menor rapidez. 
Fisto significa que los elementos del vector 


FICHA (2,3,2) 
estarán dispuestos así: 


FICHA(1,1,1), FICHA(2,1,1), FICHA(1,2,1), FICHA(2,2,1), 
FICHA(1,3,1), FICHA(2,3,1), FICHA(1,1,2), FICHA(2,1,2), 
FICHA(1,2,2), FICHA(2,2,2). FICHA(1,33,2), FICHA(2,3,2). 


Asignaciones de valores 


Cada variable utilizada en un programa representa simbóli- 
camente el valor contenido en las celdas de memoria que iden- 
tifica. Es evidente, pues, que este valor debe estar bajo control, o 
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sea: ha de ser posible asignar a la variable el valor deseado en 
cada momento. La instrucción general que consigue este objetivo 
tiene la forma: 


variable = valor 
Por ejemplo, con: 


IVAR] = 45 

IVAR =3*IVARO 
se expresa la intención de introducir el valor 4.5 en las celdas mar- 
cadas por la variable real VAR] y el resultado del producto de 3 
por el valor de IVARO en las celdas representadas por IVAR. 

Cuando se tenga que atribuir valores a los elementos de un 
vector, este método sería bastante incómodo; por ello se prefiere 
utilizar sistemas de asignación “global”. 

Por ejemplo, para el vector de variables reales PRUEBA(10), 
se podría escribir 


DATA PRUEBA(1), PRUEBA(2), PRUEBA(3)/4*12.5/ 


para indicar que los tres primeros elementos del vector toman un 
valor igual a la expresión encerrada entre las barras. 
Todavía mejor es la expresión: 


DATA(PRUEBA(I)1=1,3)/4*12.5/ 


para indicar lo mismo, significa que el compilador deberá consi- 
derar, para cada valor de 1 desde 1 a 3 inclusive, las variables 
PRUEBA(I) correspondientes y asignar a estas últimas los valores 
resultantes de la expresión indicada. 

Si se quiere atribuir al mismo tiempo que esto el valor 0 a la 
variable entera J, y la palabra PRUEBA a la variable 


CHARACTER * 6 LETR, 
se tendrá que escribir: 
DATA (PRUEBA(I)=1,3)/4*12.5/J/0/,LETR/'PRUEBA'/ 


de lo que se deduce que la forma general de la instrucción DATA 
es: 


DATA variables/valores de las variables/ variables/valores 
de las variables/.... 
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Cuando el valor a atribuir haya de considerarse constante o 
w quiera evitar el riesgo de modificaciones por parte de instruc- 
nlones de asignación erróneas se utilizará la instrucción PARAME- 
lib en la forma: 


METER (vanable=valor) 


ue hace que la expresión “valor” sea tratada como una constante 
propiamente dicha a lo largo de todo el programa. 

También se pueden definir constantes en función de otras 
vonstantes, siempre que estén definidas anteriormente por PARA- 
METER, para conservar valores más precisos. Por ejemplo: 


PARAMETER (PI=3.14155926536, PIPOR3=3*PI, 
TERCIO=1.0/3.0) 


lía constante definida podrá utilizarse en expresiones aritmé- 
licas o instrucciones DATA y podrá servir también para definir va- 
Halbles de tipo diferente al establecido por la letra inicial, a con- 
“lición de que la instrucción IMPLICIT anticipe la declaración. 


Expresiones aritméticas 


Dentro de las instrucciones de asignación es posible definir 
oxpresiones aritméticas complejas, que se controlarán aplicando 
las reglas del álgebra tradicional. 

Las operaciones admitidas son: 


e elevación a una potencia (símbolo **) 
e multiplicación (símbolo *) y división (símbolo /) 
e suma (símbolo +) y resta (símbolo -) 


indicadas en orden de prioridad. Ello significa que la expresión 
[Sara 


ne resolverá como 3 + 8 y no como 7 * 2, al ser la multiplicación 
una operación con una prioridad mayor que la suma. 

De cualquier modo, para evitar equívocos, será preferible uti- 
lizar los paréntesis, por cuanto que el Fortran les atribuye el má- 
ximo nivel de prioridad y, por consiguiente, los trata de forma co- 
recta. 

En efecto, la expresión 


IF (a+ 3 **8 
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dará como resultado 25, por cuanto que la prioridad de la eleva= 
ción a una potencia es superada por la correspondiente a los pa= 
réntesis, 

Cuando en una expresión aparecen variables numéricas de 
tipo diverso, Fortran realiza directamente una transformación ade- 
cuada de los números para pasarlos a un tipo homogéneo, por lo: 
general de tipo real. Ello es tanto más significativo cuando se con- 
sidera que una variable entera, al aceptar un valor real, “trunca”: 
la parte fraccionaria. Por consiguiente: 


I=45 des 


se resolvería en 1 = 4 
Ello significa que la expresión 


PDA 


1 
3.0 
2 

(1/ 


A)+0/A) x 
será valorada como 0 por cuanto que I/A proporcionará 0.333333 


y J/A proporcionará 0.666666, pero su suma (0.999999) asignada a 
una variable entera será “truncada” en toda su parte fraccionaria. 


Las cadenas 


Las variables del tipo de carácter pueden sufrir muy pocas 
manipulaciones con respecto a las de tipo numérico. La obliga- 
ción de definir la longitud de cada una de ellas hace inviable cual- 
quier operación que no sea la de “ensamblaje” de varias varia- 
bles de cadena. Por consiguiente, si queremos unir las variables 
que contienen los valores “esta ' 'es una ' y 'cadena'. obtendremos: 


CHARACTER*7 A*5B,C,.D*19 


A= 'Esta ' 

B= 'es una ' 
C= Cadena. 
D= A /B.//6 


WRITE(*,100) D 
100 FORMAT (1H ,A18) 
END 
cuyo resultado será: 
Esta es una cadena. 
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(ponteriormente veremos cómo funcionan los comandos de im- 
prenión y formato). 

Como se puede observar, para las variables de cadena se de- 
vlaró una longitud tipo de 7 caracteres y cada variable de longi- 
mel diferente se declara con su correspondiente dimensión. 

Además, se puede obtener una subcadena de una variable es- 
pocificando cuál es el carácter a partir del cual debe iniciarse y 
Wémde debe terminar la extracción de la nueva variable. Por ejem- 
plo, a partir de la cadena 'ejemplo', será posible obtener 'empl' in- 
mrlándola en la variable B, de este modo: 


CHARACTER A*7,B*4 
A= Ejemplo' 
B= A(3:6) 


Si no se indica uno de los números se entenderá que es el ex- 
Iremo correspondiente; así A(3:) proporcionará 'emplo' y A(:3) pro- 
porcionará 'eje'. 

Con la misma sintaxis se puede modificar el valor de una ca- 
dena en alguna de sus partes; por ejemplo, aplicando a la varia- 
ble vista antes la expresión 


A(3:) =ercito' 


el contenido de A sea igual a 'Ejército', 

Puesto que la operación de asignación no es una expresión 
de igualdad, sino que se realiza mediante un mecanismo de trans- 
lerencias sucesivas de valores entre diferentes celdas de memo- 
rla, no se podrá efectuar una asignación de una subcadena a otra 
que contenga alguno de sus caracteres, es decir, no será posible: 


A(3:5) = A(5:6) 


por cuanto que el carácter en la posición 5 aparece en ambos 
miembros de la expresión, mientras que sería lícita 


A(3:4) = A(6:7) 
que produciría en A, 'Ejloplo'. 


Para la manipulación de las variables de cadena existen las 
funciones especiales siguientes: 


LEN(A) 
proporciona un valor entero igual a la longitud de la cadena; 
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ICHAR(A) 
da como resultado un valor entero correspondiente al núme- 
ro de orden del carácter en la tabla de códigos del ordenador, 


CHAR(D) 
proporciona el carácter correspondiente, en la tabla de códi- 
gos utilizada por el ordenador, al número entero dado; 


INDEX(A1,A2) 
ofrece el valor entero correspondiente a la posición del pri- 
mer carácter de la subcadena A2 en la cadena Al. 


FORTRAN: INSTRUCCIONES DE ENTRADA/SALIDA 


Formato de las líneas 


n programa en Fortran es una lista de instruc- 
ciones que deben ejecutarse en el orden esta- 
blecido por su secuencia. 

Cada línea está constituida por 80 posicio- 

nes que pueden contener todos los caracteres 
del juego admitido por el ordenador. Las seis 
primeras columnas de cada línea están destin: 
das a contener etiquetas que han de anteponer- 
p se a las instrucciones para señalar pasos parti- 
( ulares del programa O disposiciones concretas. De la columna 7 
incluirán las instrucciones efectivas, y en las columnas 
80, los caracteres de identificación del programa. 
El motivo de esta disposición ha de buscarse, desde el punto 
de vista histórico, en el empleo de las tarjetas Hollerith de 80 ca- 
racteres como soporte principal de las informaciones a introducir 
en el ordenador, de las cuales la disposición de las perforaciones 
rectangulares representaba a los caracteres existentes en la línea 
de programa. 

En una línea de programa no puede indicarse más de una ins- 
Irucción; un comando puede extenderse en varias líneas a condi- 
ción de que en la sexta columna de las líneas sucesivas a la pri- 
mera se registre un carácter diferente de O o del espacio, que ten- 
drá el significado de indicar al compilador que la línea es una con- 
linuación de la anterior. 

Otra posibilidad es la inserción de un asterisco o de una *C” 
en la primera columna, lo que supone que los caracteres de la lí- 
nea son un comentario que será ignorado, por consiguiente, por 
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Hoja de codificación típica en FORTRAN 


MN Figura 1.— 


30 


vl compilador. Es normal el uso de hojas de codificación similares 
1 la reproducida en la figura 1. 


Entrada/Salida 


Dentro de un programa es frecuente la Aepasisd de adquirir 
datos de dispositivos externos (entrada) o de E median- 
lo envío a periféricos externos (salida). En efecto, se considera 

trada todo lo que la unidad central de proceso recibe de 
inidades externas, tales como el teclado, el lector de cintas, 

las unidades de discos, etc. y como salida, todo lo que el ordena- 
dor envía al exterior (pantalla, unidad de discos, perforador de cin- 

;, Impresora, etc.). 

Las instrucciones que desempeñan este cometido son READ 
(lectura) y WRITE (escritura), cuya sintaxis (igual para ambas) es: 


READ (lista_de_opciones)var.-_1, var._2, .. 


Esto especifica que de la unidad indicada dentro de “lis- 
la_de_opciones” deben extraerse los valores a atribuir, en el mis- 
mo orden de adquisición, a las variables var._1, var._2, etc. 

En “lista de opciones” pueden especificarse diversas elec- 


ciones 


UNIT, FMT, REC, ERR, END, IOSTAT 


WINTT especifica la unidad periférica, entre las que están 
realmente conectadas, con la cual ha de efectuarse 
el diálogo. El empleo de un asterisco (*) comunica 
al compilador que se tiene la intención de extraer la 
información de la unidad estándar de entrada (nor- 
malmente el teclado). Para intercambiar datos con 
una unidad lógicamente no conectada se deberá 
proceder, mediante la instrucción OPEN, a la aper- 
tura de un canal de comunicación entre las dos uni- 
dades. 

PIM indica la etiqueta, dentro del propio programa, a 
continuación de la cual se especifica el formato de 
las variables tratadas. Se trata de una llamada con- 
creta a la segunda parte de la instrucción de entra- 
da/salida (vimos un ejemplo en el capítulo anterior), 
se utiliza con referencia a las unidades de discos, 
por cuanto que en los discos los datos están estruc- 
turados en ficheros que, a su vez, están subdividi- 
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dos en registros. REC especifica qué grupo de da- 
tos hay que procesar para obtener el valor reque- 
rido. 

ERR representa la etiqueta, dentro del programa, que se- 
ñala la instrucción a partir de la cual el programa se 
reiniciará en el caso de que la operación de lectura 
no se haya realizado de forma satisfactoria. 

END representa la etiqueta, dentro del programa, que se- 
ñala la instrucción a partir de la cual el programa se 
reiniciará cuando, al leer un fichero de disco, se en- 
cuentra en el mismo el final en el curso de la ope- 
ración de lectura. El éxito de la operación de lectura 
puede averiguarse con facilidad, por cuanto que el 
sistema operativo restituye un valor indicativo. 

IOSTAT especifica el nombre de la variable entera en la cual 
el sistema deberá depositar dicho valor indicativo. 


La única opción que ha de especificarse de forma obligatoria 
es la relativa a la unidad periférica. El orden en el que las opcio- 
nes deben proporcionarse no es vinculante. 
Por consiguiente, el comando 


READ (UNIT=*,FMT= 100, ERR= 999) 


comunicará al compilador que se está a la espera de adquirir un 
dato a partir del teclado (unidad de entrada por defecto), que el 
formato del dato tecleado vendrá determinado por las indicacio- 
nes proporcionadas en la etiqueta 100 y que el programa, en caso 
de error en la entrada, se reiniciará a partir de la instrucción mar- 
cada con 999. 


El formato en las operaciones de E/S 


La parte de formato de la instrucción de entrada/salida tiene 
la sintaxis siguiente: 


n*etiq. FORMAT(especificaciones-de formato) 


en donde "n*etiq.”” representa la etiqueta llamada por la opción 
FMT y "especificaciones_de formato” contiene, en estricta corres- 
pondencia biunívoca con var._1, var._2, etc., las modalidades de 
conversión entre la representación interna de los datos, que se 
realiza dentro de la memoria, y la externa (establecida por las de- 
claraciones implícitas o explícitas) que se encuentra en las unida- 
des penféricas. 
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Por ello: 


READ (UNIT= *FMT= 100, ERR= 999) 1] 
100 FORMAT (214) 


uupecificará que se deberán adquirir, a partir del teclado, los va- 
lores numéricos de dos variables enteras, a cada una de las cua- 
los corresponderán 4 cifras. 

En lo que respecta a la salida de los datos a los periféricos, 
la sintaxis de los comandos que han sido examinados es la mis- 
ma, Sólo se modifica la instrucción READ, que se transforma en 


WRITE 


mientras que para el resto (opciones y descripciones de FOR- 
MAP) son válidas las mismas consideraciones hechas para la lec- 
ira. 

La utilidad de las descripciones de FORMAT se pone de ma- 
nifiesto en su plenitud cuando se consideran fichas o registros de 
datos, en los cuales la estructuración de las informaciones en co- 
lumnas, es decir, con los datos alineados uno tras otro, hace ne- 
cesaria una precisa subdivisión de las atribuciones. 

En efecto, cuando se tenga que leer, por ejemplo, un registro 
constituido como: 


ROJSO==<= MARIO) = 32 35 
en donde el símbolo *_" indica espacios en blanco, y se tenga que 
hacer con 3 variables diferentes, las instrucciones 


CHARACTER* 10 APELLI, NOMBRE 

INTEGER EDAD 

READ (UNIT= *, FMT= 100) APELLINOMBRE,EDAD 
100 FORMAT (2A10, 13) 


informarán al compilador de que las 10 primeras columnas del re- 
qnstro se refieren a la variable APELLI, que contendrá “ROJO_ — — 
”, que las columnas 11 a 20 corresponden a la variable NOM- 
BRE, que contendrá "MARIO_ ___-— * y que las 3 últimas colum- 
nas corresponden a la variable entera (se declaró como tal) EDAD, 
(que contendrá el valor “35”. 
Es oportuno precisar ahora cuáles son las especificaciones de 


rmato utilizables en operaciones de escritura y de lectura: 


Un 


señala que “x” caracteres corresponde a una varia- 
ble entera; por consiguiente, nlx indica que ese for- 
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nPXx.y 


náx 
A 


¿4 


mato corresponderá a "n” variables enteras. Si no 
está especificado el valor de “n”, se supondrá 1. 


indica que “x” caracteres corresponden a una varia- 
ble real con "y” cifras decimales, para "n” variables. 
El número de cifras decimales se utiliza solamente 
si en los caracteres no está incluido ya un punto de- 


cimal, s 
"x" caracteres corresponden a una cadena. 


han de tratarse tantos caracteres como hayan sido 
declarados en la definición de la variable indicada. 


deberán ignorarse "n” caracteres. 


indica que los “n” caracteres que siguen a H debe- 
rán considerarse como una cadena. 


el carácter siguiente debe buscarse (o situarse) en 


la columna “x”. 


el carácter siguiente debe buscarse (o situarse) "x” 
columnas a la izquierda. 


el carácter siguiente debe buscarse (o situarse) “x” 
columnas a la derecha. 


De utilización más especial son las instrucciones siguientes: 


34 


salta a la línea (o al registro) siguiente. 


pone fin al formato cuando no se quieren describir 


todas las variables. 


imprime el signo “+” antes de los números positivos 
y el "” antes de los números negativos. 


no imprime el signo “+” antes de los números posi- 
tivos, pero sí el "- antes de los negativos. 


deja al procesador la elección sobre la indicación 
de peon 

multiplica los datos por el factor de escala "k" 
ignora los espacios en los campos de entrada numé- 
rica. 

trata como ceros los espacios en los campos de en- 
trada numérica. + 


genera números enteros de, al menos, “y” cifras, 
completando, si es necesario, el número con ceros 
a la izquierda. 


trata los valores reales con la indicación del expo- 
nente de 10; “y” son las cifras decimales y “x" el nú- 
mero de caracteres ocupados (incluidos signo, pun- 


to y exponente). Conviene que x>, y +7 


trata los valores reales con "z” cifras en el exponen- 
te de 10. 


trata los valores con doble precisión. 
genera el formato de salida adecuado para el dato. 
z' cifras de 


trata el formato de salida adecuado, con 
exponente. 


a AS especificar e 
r dé a líne 


es ( 1 1 npref 
valores A nbados son: 


cio avance de una línea antes de la salida. 
avance de dos líneas antes de la salida. 
avance a la página siguiente antes de la salida. 
ningún avance antes de la salida. 


Particularidades y ejemplos 


Existe otra instrucción para la salida, útil solamente en caso 
de datos muy simples por cuanto que no permite una indicación 
tan completa como WRITE y que se denomina PRINT. 

La instrucción PRINT no suele hacer referencia a una lista, de 
descriptores de formato, sino solamente a la unidad de salida es- 
lándar (normalmente la pantalla) y a las variables o a las cadenas 
indicadas a continuación. 


Así: 
A=10 
B=:20 


PRINT*, 'He aquí a dos números reales', A; y 'B 
dará como resultado: 
He aquí dos números reales 1.0 y 2.0 


Por consiguiente, PRINT se utiliza sobre todo en la impresión 
de mensajes o en la verificación de los procedimientos. 
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Una particularidad de READ y de WRITE es que las indica- 
ciones UNIT y FMT pueden omitirse si se presentan como prime- 
ra y segunda opción de la lista. Por lo tanto: 


READ (UNIT=1,FMT=200) A 
READ (1,FMT=200) A 
READ (1,200) A 


son perfectamente equivalentes. 
En lo que respecta a los formatos de entrada, al tener dos re- 
gistros constituidos como sigue 


A O 89 0 
-2344_345550__.24____1 


es conveniente examinar el resultado de diferentes especificacio- 
nes de lectura. Por ejemplo: 


CHARACTER*5 B 
READ (10, 100) AB] 
100 FORMAT (F5.2,3X,14,A5,4X11) 


producirá en A el valor 0.45, saltará 3 caracteres, insertará en l el 
valor 6745, en B el valor'  23' saltará 4 espacios e insertará en 
J el valor 0. 

La modificación de una indicación puede producir grandes 
trastornos. Por ejemplo: 


100 FORMAT (F5.2/3X14,A5,4X 11) 


producirá en A el valor 0.45, pasará al registro siguiente, saltará 3 
caracteres, insertará en 1 el valor 4403, en B '45550', saltará 4 ca- 
racteres e insertará en J] el valor 4. Todo ello sucede así porque 
el salto de registro lleva al comienzo del registro siguiente, en el 
cual la disposición de los datos es diferente. En particular, el valor 
4403 se deriva del hecho de que Fortran trata como “ceros” todos 
los espacios encontrados en la lectura de valores numéricos. Mu- 
chas veces es preferible hacer que ignore los espacios encontra- 
dos en la lectura de los datos numéricos. Procediendo así hubié- 
ramos obtenido el valor 443. 

Este modo de actuar, adoptado por motivos de compatibili- 
dad con las antiguas versiones del Fortran pueden crear algunos 
problemas al utilizar sistemas diferentes. Para subsanarlo y ase- 
gurarse de tratar la lectura de los datos numéricos como mejor 
conviene es oportuno utilizar, al comienzo de FORTMAT, las op- 
ciones BZ o BN que permiten, respectivamente, tratar los espacios 
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como "ceros” o ignorarlos siempre que se estén leyendo datos 
descritos por 1,F,E,DG. 

Continuando el examen de las peculiaridades de las opera- 
ciones de atar se FE observar que, a veces, la 11i- 

in de la instruccion FOR] (que al no ser una instrucción 

de ejecución, s sino de declaración AS OS puede disponerse 

en euRanis, lugar del programa), y 

simples hace p: A 

estos cas 


la opción | "MT = por su valor efectivo 


“Enmiesiro caso, e, Poda Ascrinir 
READ (UNIT=1,FMT=(F5.2,3X,14,45,4X11)') 


o, sin más, insertar la cadena FORMAT en una variable y utilizar 
esta última dentro de la línea READ, es decir: 


FTO= ((F5.2,3X14,A5,4X 11) 
READ (UNIT=1,FMT=FTO) 


y obtener el mismo efecto, 
También en este caso será posible omitir las descripciones 
de opción y escribir: 


READ (1,(F5.2,3X,14,A5,4X11)') 


Dicha ao que en la lecture boda un “corte” Al va- 
lor, dará lugar en la salida a una línea de asteriscos. Así, al utilizar 
el formato F10.4 para describir el número -45322.6, la salida obte- 
nida será ********* porque 10 los caracteres previstos no llegan 
a describir el signo (1 carácter), las 5 cifras antes del punto deci- 
mal, el propio punto decimal (1 carácter) y las 4 cifras de la parte 
fraccionaria (6000). 

Por consiguiente, la razón que mueve a utilizar el formato "C” 
(G10.4) en estos casos es la posibilidad de delegar en el sistema 
la toma de decisión sobre el formato de salida adecuado. 

Otro problema lo constituye el tratamiento de las cadenas. 

Se vio con anterioridad que una variable de cadena se decla- 
ra también en longitud para proporcionar información precisa al 
ordenador sobre la ocupación de memoria correspondiente; por 
ello, cuando se emplea una variable de cadena, se utiliza el des- 
criptor de formato “A” para emplear el mismo número de carac- 
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teres usado en su declaración (h), mientras que con Ax es opor- 
tuna una mayor atención. 

En efecto, en la fase de lectura si “x” es mayor que el número 
de caracteres "hn" efectivo solamente se leerán los “h” caracteres 
de la derecha, mientras que si “x” es menor que “h” se añadirán 
h-x caracteres de espaciamiento al final de la cadena. Con más de- 
talle, si un registro contiene 


CADENAS 
la operación 


CHARACTER*5 CADENA 
READ (1/(47)) CADENA 


leerá 7 caracteres, pero insertará en CADENA el valor 'DENAS' 
mientras que 


CHARACTER*7 CADENA 
REAS (1,(47)) CADENA 


leerá 5 caracteres y producirá, en CADENA, el valor 'CADEN" 
En caso de salida, con CADENA conteniendo 'CADENAS,, la 
operación 


CHARACTER*7 CADENA 
WRITE (*'(1H ,A9)) CADENA 


producirá la impresión de 
' CADENAS 
mientras que: 


CHARACTER*7 CADENA 
WRITE (*,(1H ,A5)) CADENA 


producirá 

'CADEN' 
Observe el empleo de 1H como carácter de control a enviar como 
primer carácter de la línea de salida. 


Unidades externas 


Cada sistema comprende algunas unidades exteriores, tales 
como la representación visual, teclado, unidad de discos, impre- 
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hora, etc., a las cuales se le asignan valores determinados de uni- 
dades. 

Solamente las unidades de entrada y de salida definidas como 
vslándar y, por consiguiente, identificadas por READ(UNIT= *) y 
WRITE(UNIT=*), se consideran conectadas al programa y siem- 
pre disponibles. Cuando se quieran utilizar las demás unidades, 

rá preciso establecer una conexión lógica que se activa con el 
comando 


OPEN (lista_de_opciones) 
Las opciones admitidas son: 
UNIT,FILE,STATUS, ACCESS,FORM,RECL,BLANK,ERR,IOSTAT 


cuyo significado veremos después. 

Recordemos que en los discos los datos se agrupan en regis- 
lros que, a su vez, están reagrupados en ficheros e identificados 
por su nombre (fig. 2). 

Los registros pueden ser de dos tipos, según que los datos se 
lleven como sus representaciones externas (lo que favorece el in- 
lercambio de los datos entre diversos sistemas), en cuyo caso to- 
man el nombre de registros formateados (en inglés FORMATTED) 
oO que se reproduzcan en el modo en el cual los conserva la me- 


Fichero 


Dato 1 Dato 2 Dato 3 


Registro n.* 1 


Registro n.* 2, 


Registro n.* N PP 0 


¡0 Figura 2.— Distribución de la información en un fichero. 
AE 
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moria, es decir, en código binario, en cuyo caso se definen como 
registros no formateados (en inglés UNFORMATTED). 

Los registros formateados se controlan con instrucciones nor- 
males de READ y WRITE, en las cuales se especifica la opción 
FMT, que no debe ser declarada, por el contrario, en caso de re- 
gistros no formateados. 

Es conveniente cuando se utilicen registros no formateados 
que se tenga una idea precisa de cómo las distintas variables se 
conservarán dentro de la memoria, es decir, el número de bytes 
ocupado por cada una, con el objeto de valorar la longitud de 
cada registro que, en el caso de registros.formateados, es simple- 
mente la suma de los caracteres empleados en las descripciones 
de formato. Así: 


READ (1) X, Y 


proporciona solamente la indicación de leer dos valores reales, 
pero es necesario conocer las características del sistema para sa- 
ber si los caracteres leídos serán 8, 12 u otro valor. Mientras que: 


READ (1,100) X, Y 
100 FORMAT (2F10.3) 


indica claramente que se tienen que leer 20 caracteres. 

Otra diferencia consiste en el hecho de que los registros for- 
mateados pueden leerse o escribirse más de uno a la vez, lo que 
está prohibido en el tratamiento de los registros no formateados. 


Opciones de OPEN 
Profundicemos en el significado de las opciones de OPEN: 


e (¡NIT tiene el mismo significado supuesto en READ y 
WRITE. Una oportunidad adicional la proporciona la posi- 
bilidad de especificar como UNIT una variable de tipo de 
carácter, que puede llegar a ser el instrumento para trans- 
ferir informaciones entre ficheros de una manera rápida. Es 
la única opción obligatoria. 

e FÍLE es el nombre del fichero exterior a emplear en la uni- 
dad conectada. Desde este momento, el fichero estará ac- 
cesible al programa. 

e STATUS estado del ficheró, que puede ser: ya existente 
(OLD), nuevo (NEW), desconocido (UNKNOWN) o de tipo 
especial, útil para procesos internos, destinado a desapare- 
cer después de la ejecución (SCRATCH). 
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e ACCESS es la modalidad de acceso al fichero. Puede ser 
secuencial (SEQUENTIAL), que se utiliza con la lectura y es- 
critura de los datos uno tras otro, característico de los fi- 
cheros en cinta, o bien de acceso directo (DIRECT), típico 
de los ficheros en disco, en los cuales el fichero está sub- 
dividido en registros de la misma longitud, lo que posibi- 
lita el acceso directo a cualquier dato sin tener que leer 
o escribir todos los anteriores. En condiciones normales, si 
no se especifica ACCESS, el fichero se procesa de modo 
SECUENCIAL. La diferencia presupone un significado par- 
ticular en cuanto que la escritura de un dato en un fichero 
secuencial destruye todos los datos siguientes, por lo que 
un fichero secuencial, en escritura, aumenta siempre su ex- 
tensión, mientras que en los ficheros de acceso directo la 
escritura de un registro deja inalterados los valores de los 
datos anteriores y siguientes. 

e FORM indica el tipo de registro y puede ser FORMATTED 
(FORMATEADO) o UNFORMATTED (NO FORMATEADO). 
A falta de especificación se suponen formateados los regis- 
tros de los ficheros secuenciales y no formateados los fi- 
cheros de acceso DIRECTO. 

e RECL indica la longitud del registro en el caso de ficheros 
de acceso directo, Ello significa que será necesario espe- 
cificar la opción REC an READ y WRITE. 

e BLANK tiene un significado análogo a las opciones BZ y BN 
en FORMAT. Se emplea cuando se quieren tratar como "“ce- 
ros” los espacios dentro de los campos numéricos (ZERO) 
o se quieren ignorar (NULL). 

e ERR indica la etiqueta que señala la instrucción a partir de 
la cual hay que volver a comenzar en caso de error. 

e ¡JOSTAT indica la variable en la cual el sistema insertará, al 
final de la operación, un valor dependiente del logro de la 
propia operación, valor que suele ser O en caso de resulta- 
dos satisfactorios. 


Un comando especial que se utiliza en los ficheros de acceso 
secuencial es ENDFILE, inserta en ellos una información particular 
que indica el final del fichero. 


ENDFILE. (UNTT=u, ERR=e, IOSTAT=I) 


escribe el último registro en el fichero conectado a la unidad “uv”. 
Las otras opciones tienen el significado ordinario. 

Después del empleo de ENDFILE ya no será posible escribir 
ni leer en el fichero correspondiente sin previo envío de un co- 
mando como 
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BACKSPACE (UNIT=u, ERR=e, IOSTAT=I) 
que permite procesar el registro inmediatamente anterior o 
REWIND (UNIT=u, ERR=e, IOSTAT=I) 


que reposiciona el fichero al punto inicial, permitiendo así la lec- 
tura del primer registro. 


Estado (INQUIRE) y cierre (CLOSE) de un fichero 


Una vez agotadas las operaciones de escritura y lectura se 
puede “desconectar” la unidad mediante el comando 


CLOSE (UNIT=u, STATUS=s, ERR=e, IOSTAT=I) 


en el cual STATUS define la "suerte que le toca” al fichero des- 
pués del cierre: se deberá mantener disponible (KEEP) o bien des- 
truirse (DELETE). 

Un comando especial es: 


INQUIRE (lista_de-opciones) 


que permite averiguar el estado y las características de un fiche- 
ro cualquiera. 

En efecto, en “lista_de_opciones” se especifican las variables 
en las cuales se insertarán los valores correspondientes a las di- 
versas opciones y que podrán examinarse a continuación. 


e UNIT (o, como alternativa, FILE especifica el objeto de la 
indagación. 

e EXIST averigua la existencia del fichero, haciendo verda- 
dera o falsa, según el resultado, la variable especificada. 

e OPENED examina si el fichero está abierto, haciendo ver- 
dadera o falsa la variable especificada. 

e NUMBER restituye un valor entero que indica la unidad co- 
nectada. 

e NAMED examina si un fichero tiene nombre, haciendo ver- 
dadera o falsa la variable especificada. 

e NAME restituye el nombre-del fichero en la variable espe- 
cificada. 

e ACCESS proporciona en la variable especificada, depen- 
diendo del tipo de registro, el tipo de acceso encontrado 
(SECUENCIAL o DIRECTO). 
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FORM restituye FORMATTED (FORMATEADO) o UNFOR- 
MATTED (NO o POE 

SEQUENTIAL, DIRECT, FORMATTED, UNFORMATTED res- 
tituyen SI o NO en las EEblES ligadas, dependiendo de 
la al correspondiente. 

L, proporciona, en la forma de un número entero, la lon- 

gitud del registro. 

VÍ C proporciona, en forma de número entero, el nú- 
mero oral de registros de fichero. 
NEXTREC proporciona el número de orden del registro si- 
guiente al último registro leído o escrito. 
BLANK proporciona el NULO o CERO en la variable espe- 
cificada. 
ERR e IOSTAT tienen el significado que asumieron ya en 
las otras instrucciones de operaciones con los ficheros. 


FORTRAN: BUCLES DE CONTROL Y TOMAS DE 
DECISIONES 


Bucles de control 


n el curso de un programa es frecuente la repe- 
tición de un grupo de operaciones varias veces. 
Este problema particular, que obligaría a la es- 
critura repetitiva de un gran número de pasos 
de programa iguales, se resuelve con la ayuda 
de la instrucción DO, cuya sintaxis es: 


DO etiqueta, variable = val._inic, val.fin In- 
cremento l 


en donde “etiqueta” indica la línea que representa el final del blo- 
que de instrucciones a repetir, “variable” corresponde a la varia- 
ble que, en el ciclo de instrucciones, cambia su valor para tener 
en cuenta el número de ciclos a ejecutar; "val_inic.” es el valor de 
partida de la variable; “val._fin” es su valor final, e “Incremento” es 
la magnitud en la que se incrementa después de cada ciclo. 

Por consiguiente: 


DO 100,=0,30,5 
WRITE(*,110)1 
100 CONTINUE 
110 FORMAT(1H 12) 
END 
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producirá: 


0 

5 
10 
15 
20 
25 
30 


por cuanto que la instrucción DO obligará al programa a ejecutar, 
de forma cíclica, el bloque de instrucciones que termina con la eti- 
queta 100. En la última línea de un bloque puede situarse realmen- 
te cualquier instrucción, pero se prefiere, con miras a la claridad, 
terminar con la instrucción CONTINUE, que no lleva a cabo nin- 
guna acción. En el bucle se controla la variable l, que al comienzo 
tiene el valor O y que se incrementa de 5 en 5, tal como se pone 
de manifiesto por la impresión de los valores, hasta que toma el 
valor 30. 

o que pstacar el hecho de que un programa FORTRAN 

Jn 1a E END J 


¡cele DO es muy sencillo: 


der 


a) a la variable se le asigna el valor inicial; 

b) se ejecutan las instrucciones del bloque hasta la etiqueta 
indicada; 

Cc) se suma, de forma algebraica, el valor del incremento al va- 
lor de la variable; 

d) si la suma resultante es menor o igual que el valor final es- 
tablecido el bucle vuelve a iniciarse a partir de la fase b); 

e) si la suma resultante es mayor que el valor final indicado, 
el programa pasará a ejecutar la instrucción siguiente a la 
correspondiente etiqueta, 


Esto trae como consecuencia que el valor que la variable to- 
mará al final del bucle debe valorarse con atención, puesto que 
no corresponderá al valor final indicado, sino a un valor mayor. 

En efecto, veamos qué ocurre al modificar el programa ante- 
rior según: 


DO 100,1=0,30,5 
WRITE(* 110) 
100 CONTINUE 
WRITE(* 120)1 
110 FORMAT(1H2) 
120 FORMAT(IH /el valor de salida del bucle es', 12) 
END 
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que producirá: 


0 
5 
10 
15 
20 
25 
30 
el valor de salida del bucle es 35. 


El incremento puede representarse también por un valor ne- 
gativo que al final del bucle será restado del valor inicial. Si no 
estuviera indicado, se sobreentenderá que el incremento vale 1. 

Dentro de un bucle DO no es posible modificar el valor de la 
variable de control mientras sea posible su utilización. Esto es así 
porque la modificación de la variable alteraría la cuenta del nú- 
mero de bucles a ejecutar, que está almacenada en una posición 
de memoria no accesible al programa. Por ello tampoco es posi- 
ble "entrar" en un bucle DO por una operación contenida en el blo- 
que de instrucciones, por cuanto que el compilador no podría 
“comprender” los valores inicial, final y de incremento de la va- 
riable. 

Un aspecto particular del bucle DO se presenta cuando la va- 
riable de control no es una variable entera, sino que se trata de 
una variable real. Ello produce efectos que han de valorarse con 
atención, por cuanto que la imprecisión con la cual un número se, 
almacena dentro de la memoria hace necesarias ciertas precau- 
ciones. Puesto que el número de bucles a ejecutar es siempre un 
valor entero, cuando se obtiene a partir del cálculo de valores rea- 
les resulta de una truncación y no de un redondeo de la parte frac- 
cionaria o decimal. 

En efecto, el cálculo del número de bucles a ejecutar es el re- 
sultado de: 


val._final = val_inicial + incremento 
incremento 


que, cuando implica valores reales, es un resultado aproximado. 
Para evitar, pues, que un valor como 9,999999 se considere 9 y no 
10 como debería ser, es más prudente utilizar un valor final algo 
más elevado (solamente en las últimas cifras significativas) que el 
necesario, con el fin de compensar este efecto, 

Por consiguiente, al encontrarse en una situación del tipo 


DO 100, VAREAL = 0.01, 0.10, 0,01 
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sería mejor utilizar un valor de val._final igual a 0.100001 que de- 
jaría, no obstante, intacta la naturaleza de los datos utilizados. 

También es posible “anillar” varios bucles DO uno en el otro 
a modo de "cajas chinas”. Es por tanto posible que una de las ins- 
trucciones de un bucle DO sea, a su vez, un bucle DO, y así suce- 
sivamente. El único vínculo está representado por la obligación 
de que un bucle interno nunca podrá tener una instrucción fuera 
del bucle externo que lo contiene, aunque podrán terminar con 
la misma instrucción. Por consiguiente se admite 


DO 100/=1,2 
DO 101]=1,10 


101 CONTINUE 
100. CONTINUE 


Oo bien 


DO 100212 
DO 100]=1,10 


100. CONTINUE 


Aunque el segundo caso podría engendrar ambigiiedad y por 
esta razón se sigue prefiriendo la primera forma, mientras que no 
se admite 


DO 100]=12 
DO 101]=1,10 


100 CONTINUE 
101 CONTINUE 


por cuanto que el bucle interior no está contenido por completo 
en el exterior. 


Instrucciones de decisión 


Las instrucciones de un programa suelen ejecutarse en el or- 
den en el que están escritas, pero sucede a menudo que un gru- 
po de instrucciones ha de ejecutarse solamente si se dan condi- 
ciones especiales o bien que se tienen que prever alteraciones 
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al normal desarrollo del programa que lleven a saltar instruccio- 
nes o a elegir alternativas entre ellas. 

En Fortran existe la posibilidad de elegir ciertos criterios de 
vxamen de las condiciones, que deberán expresarse según la sin- 
laxis del comando 


IF. (condición examinada) THEN 
bloque-de- instrucciones 
ELSE 
bloque-de instrucciones-alternativo 
END IF 


en el cual el grupo de instrucciones "bloque_de- instrucciones” se 
ejecutará si a la “condición examinada” se da una respuesta po- 
sitiva (en términos lógicos, si la condición es verdadera); de no 
ser así, es decir, si la condición fuera “falsa” (no se verifica) se eje- 
cutará el “bloque-_de_instrucciones_-alternativo”. 

Para expresar una condición, se pueden utilizar seis operado- 
res lógicos, que describen la relación existente entre dos términos. 

Así: 


IF (A.GTB) THEN 
E 


producirá la ejecución de 1=0 si A es mayor que B, mientras que 
se ejecutará J=0 si A es menor o igual que B. ) 

No es obligatorio especificar ELSE y las instrucciones corres- 
pondientes, con el fin de "aligerar" el programa cuando no esté 
prevista la utilización de instrucciones alternativas. 

A causa de las modalidades de representación interna de los 
números reales, la valoración de sus expresiones podría producir 
dificultades, sobre todo en el caso de comparaciones de igualdad. 
Por ello se prefiere, en aquellos casos en que las cifras significa- 
tivas lo justifiquen, valorar no si dos términos son iguales, sino si 
su diferencia es aceptablemente pequeña. Así, mejor que 


IF ((A. EQ. B) 
se podría usar la expresión 


IF (A-B). LT. 0.000001) 


o cualquier otro número a nuestro criterio. 
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A menudo puede darse el caso de valoraciones complejas, 
en las cuales una condición, “verdadera” implica un posterior exa- 
men del estado de otra condición, y así sucesivamente. 

En este caso, la expresión IF.THEN.ELSE se puede complicar 
al introducir niveles diferentes de examen. Así, se puede obtener: 


IF (condición_1) THEN 
instrucciones_1_verdadera 
ELSE IF (condición_2) THEN 
instrucciones.2_ verdadera 
ELSE IF (condición3) THEN" 
instrucciones_3_verdadera 
ELSE 
instrucciones_3_falsa 
END IF 


realizando un “árbol” de pruebas concatenadas. 

Tarnbién es posible el caso de que una instrucción tenga que 
ejecutarse si dos o más condiciones resultan verdaderas o si re- 
sulta verdadera al menos una entre un grupo de condiciones di- 
as: Se utilizan para el primer caso dos o más expresiones. 


IF ((LEQ.0) AND. (JEQ.0)) THEN 
TOD =0 
ELSE 


producirá la ejecución de la instrucción TOD = O solamente si se 
verificaran 1 = 0 y J] = 0. Si el resultado de la comparación fuera 
“falso”, se ejecutará NING = 0. 

Por el contrario, si se tiene 


IF ((LEQ0) .OR. (JEQ.0)) THEN 
TOD =0 


ELSE 
ING =0 
END IF 


producirá la ejecución de la instrucción TOD = O si al menos una 
de las dos condiciones es verdadera. y 

El empleo de los paréntesis no es obligatorio, por cuanto que 
las expresiones de condición tienen una prioridad menor que las 
expresiones aritméticas, pero aumentan la claridad de la instruc- 
ción y evitan ambigúedades. 
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Junto a estas dos expresiones existen otras tres, menos utili- 
zadas: NOT. FOV. y INEOV, la primera de las cuales se emplea 
para invertir el sentido de una condición. Si 


(A =0) 
es una expresión verdadera, entonces 
NOT.(A = 0) 


será falsa. 

EQV. y NNEQV. se utilizan para comparar dos condiciones. Si 
ambas son del mismo tipo, es decir, si ambas son verdaderas o 
falsas, la expresión con .EQV. será verdadera, mientras que la ex- 
presión con .NEQV. será falsa. 

Si fuesen de tipo opuesto (una verdadera y la otra falsa) como 
es el caso de que sea 1 = 0 y ] = 1, se tendrá que: 


IF (1.EQ0) EQV. [EQ.0)) THEN 
TOD =0 


producirá la ejecución de NING = 0, al tratarse de dos expresio- 
nes de tipo diferente. 

Sobre las expresiones lógicas de las que hemos hablado nos 
queda por decir que la escala de prioridad entre ellas impone 
que se ejecuten en el orden: 


OR. 
EQV. y NEQV. 


aunque los paréntesis, como es habitual, pueden alterar el orden 
de ejecución. 
Salto incondicional y condicional 

La instrucción que logra modificar completamente el flujo del 


programa permitiendo saltar “de un lado para otro” entre los blo- 
ques de comandos adopta la forma 


GOTO etiqueta 
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en donde “etiqueta” corresponde a la instrucción con la cual el 
programa deberá reiniciar la ejecución. 

En efecto, GOTO es una instrucción que ha de utilizarse con 
moderación, por cuanto que hace fatigosa la lectura de un pro- 
grama al romper su estructura. El salto continuo de una parte a 
otra sin adecuadas referencias o motivos suele ser indicativo de 
una construcción desordenada de la lógica del programa. 

Una de las premisas de la programación estructurada, que 
cada vez más se va afirmando como indispensable para la cons- 
trucción de buenos procedimientos, es precisamente limitar la 
existencia del GOTO a las construccioñes lógicas internas y a ins- 
trucciones complejas, tales como IF..THEN y DO. 

Existen otros modos de introducir un cambio del flujo de ins- 
trucciones dependiendo del valor de una variable de control. 

La expresión: 


GOTO (etiqueta_1 , etiqueta.2,..), expresión_entera 
dirige la prosecución del programa a la “etiqueta_1” si "expre- 
sión_entera” da como resultado el valor de la posición de “etique- 
ta_1” en la lista (1), y así sucesivamente para todas las alternativas, 
La expresión 
IF (expresión_aritmética) etiq_1 , etig.-2, etiqg.3 
por el contrario, dirige la prosecución del programa a la “etique- 


ta_1” si el resultado de "expresión aritmética” es menor que 0, a 
la “etiqueta_2” si es igual a 0 y a la "etiqueta_3” si es mayor que 0. 
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FORTRAN: FUNCIONES, SUBRUTINAS Y MEMORIA 


Funciones del usuario 


ortran dispone de una amplia biblioteca de fun- 
ciones intrínsecas, es decir, incorporadas en el 
propio compilador, que el usuario puede usar 
en expresiones complejas en sus programas, 
permitiéndole el acceso a funciones trigonomé- 
tricas, estadísticas, etc. 
Estas funciones se llaman solamente por su 
nombre y por las variables a las que se aplican. 
Y Así, si queremos calcular la tangente de un án- 
gulo, escribiremos 


X = TAN (A) 


para conseguir que en X se almacene el valor de la tangente del 
ángulo A expresado en radianes. ; 

Muchas de estas funciones pueden aplicarse a variables nu- 
méricas de tipo diverso, que se reconocen por el tipo de argu- 
mento utilizado. Así, la función raíz cuadrada de un número pue- 


de aparecer como 


A = SQRT(X) si A y X son variables reales 
A = SORT(X) o A = DSQRT(X) si A y X son variables de doble 
recisión 


A = SORT(X) o A = CSQRT(X) si A y X son variables complejas 


en donde DSQRT y CSORT existen por compatibilidad con las an- 
tiguas versiones del Fortran, en las cuales las funciones aplicadas 
a tipos de variables diferentes tenían nombres diferentes. 


53 


Y 


En el apéndice se da una lista de las especificaciones de las 
diversas funciones intrínsecas y de los tipos de variables que pro- 
porcionan. 

Además de ello, en Fortran está permitida, por parte del usua- 
rio, la creación de funciones que por su modo de operar, de 
utilizarse y llamarse son perfectamente similares a las descritas 
y que llegan a ser, en el programa, unas variables propiamente 
dichas. 

Así, si hacemos referencia a las soluciones de las ecuaciones 
de segundo grado (ax? + bx + c = 0) 


-b + vb? - 4ac 


x= 
2a 

2 = -b - v b? — 4ac 
2a 


y recordamos que para valorar si las soluciones son reales se exa- 
mina solamente si el término 


b? — dac 


es positivo, se podría escribir un programa que realizara esta prue- 
ba. Para hacerlo de una manera generalizada, conviene que la fun- 
ción se describa y utilice en un subprograma externo al progra- 
ma principal. Esto se llevará a cabo mediante la creación de un 
conjunto de instrucciones que no formará parte del programa prin- 
cipal, sino que, bajo el nombre de la propia función, se añadirá al 
mismo. 

La sintaxis a respetar, que prevé la declaración del tipo de la 
función, será en este caso: 


Programa principal 
REAL A,B,C,X, DISCR 
X = DISCR (A,B,C) 
END 


que permitirá al compilador reconocer que DISCR es una función 
creada por el usuario (por cuanto que no está incluida en la lista 
de las funciones intrínsecas) y que se trata de variables reales. 

Al final del programa, se añadirá un subprograma con la dis- 
posición siguiente: 


REAL FUNCTION DISCR (X.YZ) 


REAL X,Y,Z 
DISCR = Y * y -40*X*Z 
END 
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La existencia de un conjunto de instrucciones en el que apa- 
roce la palabra FUNCTION, precedida por su categoría y seguida 
nor la lista de las variables que contribuye a obtener el valor bus- 

ido, permite al compilador organizar la ejecución del programa 
de modo que se desplace el control al subprograma FUNCTION 
llamado por el programa principal y se restituya, en la variable 
nombrada, el valor resultante 

Ha de ponerse de manifiesto que los nombres de los paráme- 
lros que aparecen después del nombre de FUNCTION no tienen 
ninguna importancia (una vez compilado, el subprograma hará re- 
lerencia exclusivamente a las direcciones), siempre que exista 
úna correspondencia plena entre los parámetros internos a la FUN- 
CION (FUNCTION) y la lista de los utilizados para su llamada. En 
este caso, A corresponderá aX, BaY y Ca Li 

Es evidente que, dentro del subprograma FUNCTION, deberá 
aparecer la instrucción de asignación a la variable que le da nom- 
bre (en este caso, DISCR = ..). 

Existe también una manera diferente de crear una función, 
esta vez interna al programa, que permite evitar el recurso a sub- 
programas siempre que la función sea definible mediante una sola 
expresión. Por ejemplo, la expresión 


CHARACTER A 
TEST (A) = ACT/A'“ANDALTZ' 


define, de modo rápido, una expresión de la variable de cadena 
A susceptible de utilización repetida. El requisito exigido es que 
la definición de una función similar debe encontrarse antes de 
cada instrucción ejecutada. 


Subrutinas 


Un modo común de organizar un programa que requiera la 
ejecución repetida de un conjunto de instrucciones consiste en 
colocar estas instrucciones en una unidad de programa autónoma 
y hacer referencia a ella solamente cuando sea preciso. 

Este conjunto de instrucciones toma el nombre de SUBRUTI- 
NA y tiene una naturaleza muy similar a la de FUNCTION, de la 
que se habló anteriormente. 

La principal diferencia consiste en el hecho de que en el pro- 
grama principal la lista de los parámetros que deberán encontrar 
correspondencia en los parámetros generales del subprograma 
va precedida por CALL. Así, si queremos crear un programa en 
el que se repita varias veces una instrucción de impresión, po- 
dremos escribir: 
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PROGRAM PRINC 

CHARACTER*80 CADENA 

CADENA = Primera cadena a imprimir 
CALL IMPRESION (CADENA) 

CADENA = 'Segunda cadena a imprimir 
CALL IMPRESION (CADENA) 

END 


que deberá prever un subprograma del tipo 


SUBROUTINE IMPRESION (A)”- 
CHARACTER*80 A 
WRITE (*, 100)A 
100 FORMAT (1H /A80) 
RETURN 
END 


en donde los parámetros locales realizan la correspondencia en 
número, tipo, longitud y orden con los de llamada, y la instrucción 
RETURN comunica al compilador que la ejecución deberá volver 
a iniciarse, en el programa principal, desde la instrucción sucesi- 
va a la que había llamado a la subrutina. 

Para distinguir los programas principales de las SUBRUTINAS 
y de las FUNCIONES (FUNCTION), se utiliza como primera ins- 
trucción PROGRAM seguida por el nombre identificativo del pro- 
grama (6 caracteres). 

A propósito de los parámetros locales de las subrutinas es ne- 
cesario destacar que, en caso de variables de cadena, podrían sur- 
gir problemas con la declaración de variables de longitud dife- 
rente de la de los correspondientes parámetros en el programa 
principal, que son, en definitiva, los de utilización efectiva. Se uti- 
lizará en este caso la declaración genérica 


CHARACTER * (*) 


que asegura la adaptación automática del parámetro local al ge- 
neral. Ello sirve también cuando se tengan que declarar vectores 
de los cuales el dimensionamiento sea genérico, por lo que será 
conveniente, en el caso de un vector real de nombre A, la forma 


REAL A (*) 


dentro de la subrutina. Del modo en el que se almacenan los vec- 
loros en la memoria se deduce que, en caso de vectores multidi- 
Inensionales, solamente la última dimensión podrá definirse por 
Mi anterisco, 


Con el asterisco se pueden indicar también direcciones altet- 
nativas a partir de las cuales deberá reiniciarse la ejecución al re- * 
lorno de la subrutina. La elección dependerá del valor adoptado 
por una expresión de números enteros dentro de la subrutina. 

Así: 


PROGRAM GUIA 

CALL VARIAS (AB,*1020,*30) 
. 

20 

30 

END 

SUBROUTINE VARIAS (X.Y %** 


RETURN ¡espr 
END 


Al retorno de VARIAS el valor de "iespr' determinará a partir 
de cual de las etiquetas indicadas como alternativa (10,20,30) el 
programa reiniciará la ejecución. . 

Cuando en la lista de los parámetros formales que una uni- 
dad de programa pasa a una subrutina están incluidas subrutinas 
o funciones, será necesario que se declare dicha circunstanciame- 
diante las expresiones 


EXTERNAL proc_1,proc_2,... 


que es válido para los procedimientos externos y las funciones 
del usuario, e 


INTRINSIC fun-_1, fun_2... 


que sirve para las funciones intrínsecas, lo que es necesario cuan- 
do se tengan que utilizar funciones creadas por el usuario con el 
mismo nombre. Así si, por ejemplo, un programa principal llama 
a una primera subrutina pasándole como parámetro el nombre de 
otra subrutina y esta primera, a su vez, llama a una segunda que 
emplea también una función intrínseca como parámetro, tendre- 
mos: 
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PROGRAM PRINC 
EXTERNAL PRIMERA 
INTRINSIC SIN 


CALL SUB_1 (A.SIN/PRIMERA) 
END 


SUBROUTINE SUB_1 (X,Y COMUN) 
EXTERNAL COMUN ” 


CALL SUB_2 (B, COMUN) 


RETURN 
END 


SUBROUTINE SUB_2 (Z,COMUN) 


RETURN 
END 


en donde la declaración EXTERNAL se utiliza solamente cuando 
el procedimiento o la función entran a formar parte de la lista de 
los parámetros. Este es el motivo por el que en “SUB_2" COMUN 
no se declara como EXTERNAL, al no transferirse a otras unida- 
des, mientras que si se hace esto en “SUB_1”, que la utiliza como 
parámetro de llamada de "SUB_2”. 

Además, si no se hubiera declarado intrínseca (INTRINSIC) la 
función SIN, el compilador hubiera considerado SIN, dentro de la 
lista de los parámetros de llamada de “SUB_1”, como una variable 
real de nombre SIN y no como la función intrínseca análoga. 

Con mucha frecuencia, algunas subrutinas o funciones pue- 
den reunirse para obtener provecho de las instrucciones comu- 
nes. Se utiliza, para diferenciarlas, la instrucción ENTRY, que per- 
mite llamar no a toda la subrutina, sino solamente una parte de 
ella, concretamente al bloque que sigue a la línea de definición 
de ENTRY. 

Así: 


SUBROUTINE PRUEBA (A,B,C) 
REAL ABC 

A=2*A 

B=4*B 
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ENTRY PRUEBA1(A,B,C) 


permitirá el acceso a las dos subrutinas PRUEBA y PRUEBA] en 
puntos diferentes. El funcionamiento de los' subprogramas hace 
que las variables locales utilizadas no tengan significado en el ám- 
bito del programa principal y que, en lugar de ello, su valor sea 
indefinido, una vez que las active una llamada de programa. No 
obstante, existen casos en los que resulta de utilidad que una su- 
brutina o una función almacenen el valor tomado por algunas o 
todas las variables en el proceso anterior. Ello se consigue inser- 
tando, dentro del conjunto de las instrucciones y antes de cada 
instrucción DATA, la expresión 


SAVE 


que realiza el almacenamiento de todas las variables y vectores, 
poniéndolos a disposición de la sucesiva CALL, 


SAVE var_1, var_2,.., vect_1, vect_2... 


salvaguarda solamente los valores de las variables indicadas. 


Memoria compartida * 


Haciendo referencia al proceso de compilación es útil recor- 
dar que el Fortran, para conservar “trazas” de todas las variables 
de un programa, a las que hace referencia mediante direcciónes 
de posiciones de memoria, crea una especie de registro al que 
consulta para buscar rápidamente la información deseada. 

Para aumentar la eficacia de este mecanismo da la posibili- 

lad de identificar zonas de memoria en las cuales insertar valo- 
res que serán accesibles desde diferentes unidades de progra- 
ma. Esto significa que las variables depositarias de dichos valo- 

s, una vez indicadas como comunes, podrán ser vehículo de 
Iransferencia de datos entre un programa y un subprograma, va- 
rios subprogramas o varias funciones. 

La instrucción que realiza esta especificación tiene como sin- 


re 


COMMON /nombre_bloque-_1/lista_variables_1 , /nom- 
bre_bloque-2/.. 
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Por consiguiente, al introducir 
COMMON /COM_1/A,B(1:20) 


en un programa hará que a las posiciones correspondientes a las 
21 variables indicadas se pueda hacer referencia mediante el 
nombre COM_1. Así, en otra sección será posible introducir una 
instrucción similar, en la cual se especificarán las variables que va- 
yan a “apropiarse” de dichos valores, en el mismo orden. Es decir: 


COMMON /COM_1/C/D(1:20) 


hará que C esté en correspondencia con el valor que antes se re- 
lacionaba con A y que los elementos del vector D correspondan 
a los elementos del vector B. 

Una importante observación sobre los tipos de variables que 
el Fortran utiliza se refiere a que los bloques COMMON no siem- 
pre pueden contener variables de tipo de carácter junto con los 
de tipo numérico, lo que obligaría en esos casos a declarar varios 
bloques COMMON. 


Programa 1 


Programa 2 


Y] Figura 1.— Bloque COMMON para compartir memoria. 
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La declaración de un bloque puede hacerse de una sola vez 
vw mediante varias referencias. Así, las expresiones 


COMMON /BLOQ-1/A,B(10) 
COMMON /BLOQ-2/F G,/BLOQ_1/C(8) 


equivalen para los fines del BLOQ_1, a 
COMMON /BLOQ-_1/A,B(10), C(8) 


Los bloques COMMON pueden ser también sin nombre, en 
cuyo caso asumen una importancia especial. En cada programa 
se admite un único bloque COMMON sin nombre, que hace de 
memoria “global” propiamente dicha del programa, mientras que 
los bloques etiquetados tienen una utilización limitada a aquellos 
casos en los que sus informaciones hayan de compartirse sola- 
mente por algunas unidades. 

Las dimensiones de los bloques con nombres han de ser igua- 
les en todas las unidades de programa que los utilizan, lo que no 
es necesario con el bloque sin nombre, al cual cualquier subpro- 
grama puede hacer referencia exclusivamente por la parte desea- 
da. Así, si en un programa se tuviera 


COMMON A.B(10), C(8) 


Bloque 
COMMON 
con nombre 


Programa 1 


Bloque common | 0% 
COMMON 


con nombre 


Programa 2 


sin nombre | 


st Bloque 
COMMON 
con nombre 


Programa 3 


00) Figura 2.— Compartiendo memoria a través de bloques COMMON 
pl con o sin nombre. 
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en otro subprograma se podría encontrar 
COMMON F 


si interesara solamente la primera variable o, incluso COMMON 
G(S) para tomar los cinco primeros valores. 

Otra diferencia entre los dos tipos de bloques está constitui- 
da por el valor inicial tomado por las variables que los constitu- 
yen. Los bloques sin nombre no están inicializados, mientras que 
para los segundos existe un subprograma específico (BLOCK 
DATA) dedicado a este cometido.  .. 

Por consiguiente, todas las variables contenidas en bloques 
etiquetados encontrarán su definición dentro de instrucciones 
DATA contenidas en una unidad como 


BLOCK DATA nombre_bloque 


DATA.. 
DATA.. 


END 


Pero la diferencia principal entre los dos tipos de bloques 
COMMON consiste en el hecho de que las variables contenidas 
en los bloques sin nombre mantienen su valor aun cuando no se 
les haga referencia explícita y directa, mientras que si un bloque 
etiquetado no se describe en alguna subrutina, los valores de sus 
variables se perderán en el momento de la ejecución de dicha 
subrutina. El único modo de conservar los valores de los bloques 
etiquetados es introducir el nombre del bloque en una instruc- 
ción SAVE, con el fin de obligar al programa a conservar sus 
valores. 

Así 


SAVE var_1,.../nombre_bloque/ ,.. 


serviría para la conservación de los valores de “nombre_bloque”. 

No obstante, se prefiere declarar en el programa principal 
como variables pertenecientes al bloque sin nombre, aunque no 
se las utilice, todas las variables que hayan de tener un empleo 
frecuente, con el fin de conservar siempre su valor, 

Cuando la memoria disponible no sea muy amplia, o para em- 
plear la posibilidad de referirse al mismo valor con varios nom- 
bres de vanables, se utiliza la instrucción: 


EQUIVALENCE (lista_variables_1), (lista_variables_2) ... 
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que informa al compilador que todas las variables (o elementos) - 
de la lista 1 comienzan en la misma posición de memoria, que to- 
das las variables (o elementos) de la lista 2 hacen lo propio, y así 
sucesivamente. Esto significa que: 


EQUIVALENCE (A(24), C(8), P) 


producirá el efecto mostrado en la figura 3. 


A(24) C(8) P 
A(25) c(9) 
A(26) 


T ] Figura 3.— Efecto de una instrucción EQUIVALENCE 


más eficaz que una instrucción COMMON empleada con las res- 
pectivas listas de variables correspondientes. 

En efecto, este método, en lugar de cálculos complicados para 
valorar la posición de cada variable en la lista COMMON, realiza 
la simple especificación de las variables inmediatamente corres- 
pondientes. Es evidente que una distribución similar de la memo- 
ria trae consigo que las celdas próximas sean ocupadas por los 
elementos correspondientes de los vectores, si los hubiere; así 
A(25) ocupará la misma posición que C(9) y lo mismo sucesiva- 
mente. 
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COBOL: ESTRUCTURA 


ebido a las características especiales del len- 
guaje COBOL resulta necesaria una visión ge- 
neral de la estructura que debe tener cualquier 
programa escrito siguiendo las reglas de su sin- 
taxis. 

Un programa COBOL está dividido en cua- 
tro partes, llamadas DIVISIONES, cada una de 
ellas con cometidos y significados completa- 
mente distintos: 


IDENTIFICATION DIVISION 
ENVIRONMENT DIVISION 
DATA DIVISION 
PROCEDURE DIVISION 


Cada instrucción debe estar, según la función que desempe- 
ñie, dentro de una de estas cuatro partes. Á su vez, las "divisiones" 
comprenden varias “secciones” y estas últimas varios “párrafos”. 


e IDENTIFICATION DIVISION (DIVISION DE IDENTIFICA- 
CION); incluye todas las instrucciones que sirven para des- 
cribir el nombre del programa, la fecha de creación, el au- 
tor, etc. es decir, las informaciones que constituyen la "eti- 
queta” del programa. 

e ENVIRONMENT DIVISION (DIVISION DEL ENTORNO); en él 
están las instrucciones relativas al entorno exterior al pro- 
grama y, por consiguiente, el nombre del ordenador en el 
que está cargado y los nombres y características de los dis- 
positivos exteriores y de los ficheros que se utilizarán por 
el programa. 
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e DATA DIVISION (DIVISION DE DATOS), incluye las defini- 
ciones des das variables que serán atlizadas en el programa 
y su SUE RaSIón.. 

e PROCEDURE IN (DIVISION DE PROCEDIMIENTO) 
dispone de las instrucciones efectivas de Apeplazarotenia 
de los datos declarados en las secciones anteriores. 


Las divisiones están constituidas como muestra la figura 1. 


IDENTIFICATION DIVISION 


PROGRAM-ID denominación del programa. 
AUTHOR nombre del autor. 
INSTALLATION instalación. 


DATE-WRITTEN fecha de creación del programa. 
DATE-COMPILED fecha de compilación. 
SECURITY comentario. 


ENVIRONMENT DIVISION 


CONFIGURATION SECTION 


SOURCE-COMPUTER indica el ordenador en el que se compiló el programa. 

OBJECT-COMPUTER indica el ordenador en el que deberá trabajar el programa. 

SPECIAL-NAMES ria las denominaciones especiales utilizadas por el com- 
pilador. 


INPUT-OUTPUT-SECTION 


FILE-CONTROL asocia los nombres de los ficheros utilizados en el pro- 
grama con los externos. 
1-O-CONTROL define las técnicas de gestión especiales de los datos. 


DATA DIVISION 


FILE SECTION describe la estructura de los ficheros. 


descripción de los ficheros 


WORKING-STORAGE 
SECTION describe los datos. 
LINKAGE SECTION describe los datos compartidos con otros programas. 


PROCEDURE DIVISION 


secciones y párrafos de instrucciones. 


Y Figura 1.— Constitución de las cuatro divisiones de un programa en 
COBOL, 
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Líneas de programa 


Una línea de un programa COBOL está constituida por 80 co- 
lhurmmnas, aunque se utilicen solamente 72. 

Las seis primeras están destinadas a contener el número de 
secuencia de la línea, que se utilizará en muy raras ocasiones. 

La columna 7 contiene caracteres cuyo significado es identi- 
ficar destinos particulares de la línea. Un carácter de espacio en 
la 7% cólumna identifica una línea normal de programa. Un aste- 
risco indica que la línea contiene exclusivamente comentarios; por 
ello será ignorada por el compilador. Un guión "-” indica que la 
línea ha de considerarse continuación de la línea anterior. Una le- 
tra “D” indica que la línea se utiliza exclusivamente para correc- 
ciones. Una barra "/" indica que la línea es de comentario; la hoja 
se deslizará hasta el comienzo de la página siguiente (salto de pá- 
gina) antes de la impresión de la línea. 

Las columnas 8 a 11 son denominadas "Área A”. En esta zona 
deben colocarse los primeros caracteres de las denominaciones 
de las divisiones, de las secciones y de los párrafos, así como los 
principales indicadores de nivel de las diversas categorías de da- 
tos (FD, 01 y 77). 

Las columnas 12 a 72 se definen como “Área B”. En estas co- 
lumnas se incluirán las definiciones de los datos de nivel inferior 
a FD, 01 y 77. En condiciones normales, en esta área están conte- 
nidas todas las instrucciones efectivas. 

“Las columnas 73 a 80, tal como para el Fortran, están destina- 
das a identificación del programa. 

Un programa COBOL podrá contener, pues, líneas similares a: 


000010 IMPRESION 
000450* ESTA ES UNA LINEA DE COMENTARIO 
01 ARTICULO DE ALMACEN. 
MOVE A TO B, 
03 SUB-CAMPO-DE-A PIC 9(8). 
PROC-LOOP-TEST. 


Se consideran caracteres de separación el espacio, la coma 
y el punto y coma. Dichos caracteres pueden separar también las 
diversas opciones de un comando, mientras que cada instrucción 
debe completarse con un punto. 

Normalmente los programadores hacen uso de hojas de co- 
dificación como la reproducida en la figura 2. 
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Los nombres en COBOL 


El COBOL, por su propia naturaleza de lenguaje orientado al 
usuario, por su autodocumentación y por la propia sintaxis de los 
comandos, hace un gran uso de los nombres. 

Los nombres, es decir las secuencias de caracteres alfabéti- 
cos y numéricos (incluido el guión “-”), pueden identificar prácti- 
camente todas las informaciones procesables en un programa. En 
efecto, mediante los nombres se representan datos, constantes fi- 
gurativas, ficheros, registros, índices, claves de acceso a los datos, 
partes de programa, dispositivos y variables. 

La longitud de cada nombre puede extenderse hasta 30 ca- 
lacteres, no pueden contener espacios dentro ni empezar o aca- 
bar en guión, y han de contener al menos un carácter alfabético, 
a no ser que se trate de nombres de párrafos o secciones. Serán, 
pues, nombres válidos: 


0001 NOMINATIVO DESTINO-1 PROGR-NOV-85 
Las constantes figurativas son: 


ZERO, ZEROS o (ZEROES): indica el valor 0:o tantos valores “0” 
como sean los caracteres de la variable a los que se aplica. 

SPACE o SPACES: indica el valor “espacio” o tantos valores “es- 
pacio” como sean los caracteres de la variable a los que se 
aplica. 

QUOTE o QUOTES: indica comillas simples o dobles. 

HIGH-VALUE o HIGH-VALUES: indica el carácter o los caracteres 
que tienen la posición más alta en el conjunto de caracteres 
del ordenador. 

LOW-VALUE o LOW-VALUES: indica el carácter o los caracteres 
que tienen la posición más baja en el conjunto de caracteres 
del ordenador. 

ALL: seguido por una cadena de uno o más caracteres indica que 
la variable a la que se aplica está constituida toda ella por los 
caracteres de la cadena. El valor resultante en la variable 
comprenderá un número de caracteres igual a su dimensión. 


Variables 


Las variables pueden representar valores de dos tipos: numé- 
rico y no numérico. Las de tipo numérico están constituidas por 
secuencias de cifras, un signo y un punto decimal (si fueran ne- 
cesarios). Las de tipo no numérico están caracterizadas por un 
conjunto de caracteres encerrado entre dos comillas. 
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Como ejemplos para ambos tipos podemos considerar: 


Tipo numérico Tipo no numérico 
324 "He aquí una cadena” 
+0.556 en 


Hay que señalar que para representar las comillas dentro de 
una variable de tipo no numérico se usan un par de comillas, así, 
“vinculante” se representará por: 


eeera, ”».n 


vinculante 


En realidad, cada variable, en el momento en que se declara, pro- 
porciona al compilador numerosas informaciones sobre su repre- 
sentación, por cuanto que su declaración puede ir acompañada 
por la definición PICTURE (o PIC) y por otras instrucciones que 
ilustran, de manera detallada, todas sus características; si es o no 
numérica, por cuántos caracteres está constituida, si debe consi- 
derarse el signo en su interior, si su representación interna es de 
tipo especial, etc. 

Cada variable de tipo numérico puede comprender hasta 18 
cifras, mientras que una variable no numérica puede comprender 
un número de caracteres que suele depender del ordenador y 
del sistema operativo en el que está instalado el lenguaje (desde 
l a 128, desde 1 a 2047, etc.). 


Identification division (División de identificación) 


La división inicial es necesaria solamente para los fines de do- 
cumentación del programa. 
En efecto, son obligatorias solamente las instrucciones 


IDENTIFICATION DIVISION. 
PROGRAM-IDnombre_del programa 


mientras que son opcionales y, si están presentes, tiene que intro- 
ducirse en el orden presentado: 


AUTHOR. 
INSTALLATION. 
DATE-WRITTEN. 
DATE-COMPILATION. 
SECURITY. 
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Environment division (División del entorno) 


En esta división solamente son instrucciones obligatorias: 


ENVIRONMENT DIVISION 

CONFIGURATION SECTION . 
SOURCE-COMPUTER.nombre-_del ordenador 
OBJECT-COMPUTER.nombre_del_ ordenador 


En el ámbito de OBJECT-COMPUTER pueden encontrarse 
también declaraciones facultativas, a modo de comentarios, como: 


MEMORY[SIZE] n WORD/CHARACTERS/MODULES 


que indica la cantidad de memoria expresada en la unidad de me- 
dida especificada 


[PROGRAM COLLATING] SEQUENCE [IS]nombre_de_la_se- 
cuencia 


que especifica la tabla de símbolos adoptada, en el caso de que 
se quieran modificar los valores correspondientes a HIGCH-VALUE 
y LOW-VALUE, y 


SEGMENT-LIMIT IS.nnúmero_segmento 


que indica el máximo número de segmento utilizado (de la 49). 
En lo sucesivo se utilizarán siempre los corchetes ([ ]) para indi- 
car las palabras que, en el ámbito de una instrucción, pueden es- 
tar o no presentes sin modificar su sentido, mientras que las po- 
sibles alternativas irán precedidas por la barra “/” (ejemplo 
ON/OFF). 

Por el contrario, son instrucciones facultativas 


SPECIAL-NAMES. 
SWITCH (desde 0 a 7) IS nombre_usado_en_el_programa 
ON/OFF(STATUS]ISnombre-_condición._l... 
nombre_tabla_caracteres IS STANDARD-1/NATIVE. 
CURRENCY [SIGN]IS carácter 
DECIMAL-POINT I5S COMMA 


con las cuales se establece la correlación de nombre_usa- 
do_en_el_programa con el dispositivo exterior equivalente 
(SWITCH). 

Se puede averiguar su estado mediante nombre_condición_1 
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(ON/OFF), que es una instrucción que se suele utilizar para sus- 
tituir nombres mnemónicos por instrucciones de control. 

Se puede elegir la tabla de los caracteres a utilizar (que está 
en correlación con los valores de HIGH-VALUE y LOW-VALUE) 
entre las alternativas indicadas. 

Se puede indicar qué carácter, en la declaración de la varia- 
ble, deberá representar el símbolo de la moneda. 

Se puede invertir el empleo del punto decimal con el de la 
coma por cuanto que, en los países de lengua inglesa, las cifras 
decimales están separadas por un punto, mientras que la coma se 
emplea para separar los millares, los millones, etc. 

En ENVIRONMENT DIVISION, la sección que asocia los fiche- 
ros externos a los nombres que los representan en el programa es 


INPUT-OUTPUT-SECTION. 


En COBOL, los ficheros pueden ser de tipo diverso y proce- 
sarse de varios modos, por lo que existen diversas formas sintác- 
ticas para el párrafo 


FILE-CONTROL, 


según que los ficheros estén organizados de manera secuencial, 
relativa o con índice. 

En un fichero secuencial los registros están almacenados en 
posiciones contiguas, uno tras otro, y para el tratamiento de uno 
de ellos será necesario procesar todos los anteriores. Por este mo- 
tivo se trata de un tipo de organización adecuada para ficheros 
que no tengan que sufrir modificaciones continuas. 

En un fichero relativo (directo o aleatorio), el acceso a un re- 
gistro individual no obliga a la gestión de los registros anteriores, 
por cuanto que se identifica directamente por el número del re- 
gistro, es decir, por su posición en el fichero. Es, pues, posible la 
recuperación inmediata de los datos contenidos en un registro.  ' 

En un fichero con índice se elige un campo especial como cla- 
ve de acceso del registro y, por ello, cada registro se identificará 
con el valor de su clave. Todos los índices están almacenados en 
un fichero separado, asociados a la dirección del registro al que 
hacen referencia. Cuando se requiere un registro se especifica su 
clave de acceso que, encontrada en el fichero separado, propor- 
ciona de forma inmediata los extremos para la identificación del 
registro deseado. 

Con un fichero secuencial, la forma será: 


SELECT nombre_utilizado_-en_el_programa 
ASSIGN[TO] modo_selección , nombre_fiche- 
ro/nombre_dato 
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en donde modo_selección puede ser INPUT, OUTPUT, INPUT- 
OUTPUT, PRINT y RANDOM, según la operación a efectuar. 

INPUT se utiliza para la lectura de los datos de un registro; 
OUTPUT, para la escritura en un registro, e INPUT-OUTPUT per- 
mite la realización simultánea de las dos operaciones. Para los fi- 
cheros de organización relativa y con índice se utilizará RANDOM, 
y para enviar datos a la impresora la modalidad preestablecida 
será PRINT. 

Así, si se quisiera leer el fichero externo “TARJETAS” y hacer 
referencia al mismo mediante el nombre MLFICHERO, se tendría: 


SELECT MI-FICHERO ASSIGN TO INPUT/TARJETAS" 
mientras que para enviar datos a la impresora se podría tener: 
SELECT IMPRESION-DATOS ASSIGN TO PRINT 
las otras declaraciones relativas a los ficheros son: 


ORGANIZATION 
ACCESS 
STATUS 


ORGANIZATION tiene relación con el modo en el que se creó 
el fichero y no puede modificarse en el curso de las operaciones 
de proceso. Su sintaxis es: 


ORGANIZATION [IS] SEQUENTIAL/ RELATIVE INDEXED 


dependiendo de las diferentes modalidades de creación de los fi- 
cheros. Las operaciones que se pueden efectuar en un fichero son 
la lectura y escritura de los datos contenidos. ACCESS indicará el 
orden en el que deben tratarse los registros. La sintaxis, en el caso 
secuencial, será: 


ACCESS [MODE 18] SEQUENTIAL 


en donde los registros se procesarán uno tras otro, mientras que, 
con ficheros relativos, la sintaxis será: 


ACCESS [MODE IS] SEQUENTIAL [RELATIVE KEY 18 nom- 
bre_dato] 

RANDOM [RELATIVE KEY 15 nom- 
bre_dato] 

DYNAMIC 
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lil acceso secuencial establece que los registros se procesa- 
rán tino tras otro, en el orden creciente de número de registro. 
Gon el acceso aleatorio, el valor de RELATIVE KEY especifica- 
rá cuál es el registro a tratar. Con el acceso dinámico el fichero 
podrá procesarse tanto en el modo secuencial como en el modo 
aleatorio. 

Con ficheros con índice se tendrá: *. 


ACCESS [MODE 15] SEQUENTIAL 
RANDOM 
DYNAMIC = 
RECORD [KEY IS] nombre_dato 
[ALTERNATE RECORD [KEY 18] 
nombre_dato [WITH DUPLICATES]] 


El acceso secuencial establece que los registros se procesa- 
rán uno tras otro, en orden de clave de acceso creciente. Con el 
acceso aleatorio el valor de RECORD KEY especificará cuál es el 
registro a tratar y con el acceso dinámico el fichero podrá proce- 
sarse tanto de manera secuencial como de manera aleatoria. 

La declaración ALTERNATE RECORD especifica una clave de 
acceso alternativa para los registros del fichero. Si se especifica 
la opción WITH DUPLICATES, en el fichero podrán existir regis- 
tros con la misma clave de acceso alternativa. 

Es importante subrayar que cuando un fichero con índice 
se procesa el campo especificado como clave de acceso debe 
ee el efectivamente utilizado en el momento de la creación del fi- 
chero. 

A falta de especificaciones expresas para un fichero se con- 
oa que tanto la organización como el acceso son secuen- 
ciales. 

Además, con el empleo de la opción 


FILE STATUS [IS] nombre_dato 


después de cada operación efectuada en el fichero en la variable 
nombre_dato se encontrará un valor que dependerá del éxito de 
la operación. Así: 


SELECT MI-FICHERO ASSIGN TO RANDOM, "TARJETAS" 

ORGANIZATION 158 RELATIVE 

ACCESS MODE [5 RANDOM, RELATIVE KEY IS CLAVE-ACCESO 
FILE STATUS [5 INDICADOR-ERROR 


informará al compilador de que se liene la intención de procesar 
el fichero relativo "TARJETAS", haciendo referencia al mismo con 
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el nombre MIFICHERO, de manera relativa, utilizando como cla- 
ve el valor contenido en CLAVE-ACCESO y conservando en IN- 
DICADOR-ERROR un valor que dependerá del resultado, satisfac- 
torio o no, de la operación efectuada. 

De forma análoga: 


SELECT ALMACEN ASSIGN TO RANDOM, “STOCK” 
ORGANIZATION INDEXED 

ACCESS DYNAMIC 

RECORD KEY CODIGO 


procesará el fichero con índice "STOCK” haciendo referencia al 
mismo con el nombre ALMACEN, con acceso tanto secuencial 
como aleatorio, utilizando como clave de acceso el campo deno- 
minado CODIGO, 

El párrafo 


1-O-CONTROL 


indica las técnicas especiales a utilizar en la gestión de los fiche- 
ros. Las instrucciones que están incluidas en esta sección son, por 
ejemplo: 


SAME [AREA FOR] nombre-fichero_1, nombre fichero_2,.. 


que establece que dos o más ficheros comparten la misma zona 
de memoria, aunque no sean del mismo tipo, o: 


NO APPLY [AREA FOR] 
nombre_fichero_1 , nombre-fichero_2 , .. 


que ordena al compilador que no reserve zonas de memoria para 


los datos contenidos en los ficheros indicados, etc. 
Se trata de una sección de utilización especial. 
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COBOL: LOS DATOS 


DATA DIVISION (División de datos) 


a división de datos describe la naturaleza y la 
estructuración de los datos utilizados en el pro- 
grama, que pueden ser de tres tipos: 


e datos contenidos en fichero; 

e datos procesados por el programa y uti- 
lizados para conservar resultados inter- 
medios o formatos de impresión; 

e constantes definidas por el usuario. 


Las tres secciones de las que está constituida la división tie- 
nen las funciones siguientes: ; 


e FILE SECTION declara la estructura de los ficheros. Cada fi- 
chero se identifica por un bloque de descripción general 
o por uno de descripción del registro. . 


e WORKING-STORAGE SECTION describe registros y datos 
no estructurados que no forman parte de ficheros externos, 
pero que son procesados internamente por el programa, y 
constantes. 


e LINKAGE SECTION, de la misma composición que la sec- 
ción WORKING-STORAGE, tiene significado solamente 
cuando el procedimiento completo de los programas pre- 
vé que estos datos tengan que ser compartidos entre va-- 
rias unidades de programa. 
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El conjunto de instrucciones relativas a la descripción de los 
ficheros tiene la sintaxis: 


FD nombre_del fichero 


Debe de haber una entrada de descripción de fichero (FD) 
por cada fichero que aparezca en una instrucción SELECT de la 
división del entorno, y sus nombres deben coincidir. Sus opcio- 
nes son: 


LABEL RECORD IS/RECORDS ARE  STANDARD/OMITTED 
BLOCK [CONTAINS] num-_1 [TO num_2] RECORDS/CHARACTERS 
RECORD [CONTAINS] num_1[TO num_2] CHARACTERS 

VALUE OF LABEL IS nombre_dato 

DATA RECORD IS/RECORDS ARE nombre_1 [(nombre_2] ... 


La palabra FD debe escribirse en el área A y ha de ir seguida 
por el nombre del fichero utilizado por el programa. Las demás 
instrucciones comenzarán en la zona B. Hay un punto único, situa- 
do al final de la instrucción FD (por tanto, al final de todas sus op- 
ciones). 

La instrucción BLOCK describe la dimensión de un registro fí- 
sico, cuando no sea estándar, en términos de registros o, cuando 
la especificación de un número de registro sea imposible, en tér- 
minos de caracteres. También está permitido indicar los límites 
de la dimensión de los bloques cuando la longitud no se tenga 
que considerar fija. 

La instrucción RECORD suele omitirse por cuanto que el re- 
gistro se describe ampliamente en las fases sucesivas. 

La cláusula LABEL especifica la existencia, o no, de etiquetas 
para el fichero o el dispositivo al que está asignado el fichero. 
Pero los ficheros asignados a dispositivos RANDOM (aleatorios) 
la etiqueta ha de especificarse como STANDARD. 

VALUE OF LABEL es un comentario que especifica el valor 
de la posible etiqueta del dispositivo o del fichero. 

DATA RECORD especifica el nombre de las estructuras de da- 
tos que componen el fichero. Cada nombre asignado correspon- 
derá al más alto nivel (01) posible en un fichero y deberá ser ob- 
jeto de llamada en la siguiente sección de descripción de registro, 

Es pues posible que un registro esté estructurado de modos 
diferentes, con la característica de que los datos de las diversas 
estructuras compartan la misma área. 

En efecto: 


DATA RECORDS ARE ESTRUC-1, ESTRUC-2, ESTRUC-3 
indicará que la estructura del fichero puede examinarse según 
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tres modelos de subdivisión, a los que será posible hacer referen- 
cia con cualquier instrucción. 

En las secciones sucesivas será necesario encontrar la des- 
cripción detallada de cómo están constituidas las tres estructuras. 


Descripción del registro 


A continuación de la descripción del fichero (FD) debe ir al 
menos una entrada de descripción del registro al nivel 01. Su pro- 
pósito (tanto de este nivel como de los siguientes) es informar al 
compilador COBOL de la estructura del "registro lógico” utilizado. 
dl ] ssianado a cada campo varia de 01 a 49 dan 
sia; el 01 se reserva ] l re 
gistro y se emp en el área A Para facilitar la com- 
prensión se suelen estructurar las líneas, sangrando los distintos 
subcampos pertenecientes a otro respecto de éste. Cuando un 
campo no tiene subcampos se denomina elemento simple, en con- 
traposición a los que sí los poseen (elementos compuestos). 

La descripción de un registro es igual en las tres secciones 
de DATA DIVISION y tiene la estructura siguiente: 


El número 


lo idea de 


e nivel 


y para el nombre del re 


ñeza a escrioil 


número_nivel nombre_dato-1 /FILLER 


seguido por las opciones: 


REDEFINES nombre_dato-2 
PICTURE/PIC [IS] cadena_de_caracteres 


USAGE [IS]  COMPUTATIONAL 
COMP 
COMPUTATIONAL-1 
COMP-1 
COMPUTATIONAL-3 
COMP-3 
DISPLAY 
INDEX 


AS AS 


SIGN IS TRAILING/LEADING [SEPARATE [CHARACTER] 


OCCURS número_de_veces [TIMES] 
num_1 TO num_2 [TIMES] DEPENDING [ON] 
nombre_dato [INDEXED [BY] nombre_índi- 
ce] ,..] 


79 


SYNCHRONIZED/SYNC [LEFT/RIGHT] 
JUSTIFIED/JUST [RIGHT] 
BLANK [WHEN] ZERO 

VALUE [18] valor_dato 


El número de nivel (que puede variar de 01 a 49) muestra el nivel 
jerárquico del dato en la estructura del registro. Además de ello 
diferencia un modelo de estructuración de un registro de una va- 
riable independiente, que tendrá siempre un número de nivel 
igual a 77. z 

Como se dijo anteriormente, si en un registro hay varios ni- 
veles 01 (el nivel máximo de "agregación”) se deberán encontrar 
las correspondientes definiciones en el grupo de descripción del 
fichero encabezado por FD. Continuando con un ejemplo antes uti- 
lizado, se deberá encontrar: 


ED 
DATA RECORDS ARE ESTRUC-1, ESTRUC-2, ESTRUC-3 


01 ESTRUC-1. 


01 ESTRUC-2, 
01 ESTRUC-3. 


Y |] Figura 1.— Estructura de un registro. 
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Por consiguiente, en la estructura de la figura 1 serán atribui- 
dos números de nivel crecientes a las estructuras que van des- 
cendiendo, poco a poco, a definiciones de mayor detalle hasta lle- 
gar a los datos elementales, para los cuales sólo se admiten ins- 
trucciones específicas sobre las características del contenido, ta- 
les como VALUE, PIC, etc. El nombre_dato que está junto al nú- 
mero de nivel tiene el significado de simbolizar la denominación 
del campo descrito, pero también representa todos los posterio- 
res subniveles de “agregación”. Por consiguiente, cada vez que 
en una instrucción aparezca el nombre de un campo de un regis- 
tro, serán afectados todos los datos que estén bajo la denomina- 
ción correspondiente. Es decir, después de haber asignado un 
nombre a un registro será posible, por ejemplo, imprimir todos los 
datos contenidos en dicho registro especificando su nombre como 
objeto de la instrucción de impresión. 


Así: 
FD TARJETA 
LABEL RECORD IS OMITTED 
RECORD IS DATO 
01 DATO. 
02 CAMPO_1 PIC X. 
02 CAMPO_2 
03 SUB_CAMPO_1 PIC X. 
03 SUB_CAMPO_2 PIC X. 
03 CAMPO_3 PIC X. 


describirá el fichero TARJETA, que no tiene etiquetas (OMITTED 
significa “omitidas”), en el cual el único registro toma el nombre 
de DATO y está estructurado en tres campos, uno de los cuales 
está subdividido a su vez en otros dos. Una instrucción de lectura 
o de escritura en DATO implicará todos los datos elementales 
(CAMPO_1, SUB_CAMPO_1, SUB_CAMPO_2, CAMPO_3) que lo 
constituyen. 

La palabra FILLER indica que el campo no tiene nombre y 
que no contendrá valores significativos. Por consiguiente, FILLER 
puede utilizarse para datos de nivel elemental, pero no para los 
de nivel máximo, como 01. En efecto, fuera del registro, incluso 
los datos de nivel 77 tienen la necesidad de estar definidos, por 
lo que para ellos no será posible el empleo de esta opción. 
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Redefines 


La cláusula 


nombre dato. .] REDEEFTNES nambra dan 2 

AA 1 aio 2 4 dbd 11 ML iS 1d 1d ii A Sc bi 

especifica que un nombre_dato se refire a la misma zona de me- 
moria ocupada por otro nombre-dato. Ast 


01. Al 
02 Bl . 
(9 El * POÉ 
03  C2 PIC X. 
02 Dl REDEFINES Bl 
03 El PIC X. 
03  E2 PIC X. 
03  E3 PIC X. 
02  B2 PIC X. 


indica que, en memoria, se tendrá la estructura de la figura 2. 
Los campos Cl y C2 ocupan la misma zona de El, E2 y E3. 
Se podrá, pues, elegir hacer referencia a Bl o a Dl, que lo redefine. 


02 


03 


y) Figura 2.— Estructura al usar REDEFINES. 


Picture 

La cláusula PICTURE describe las características de represen- 
lación de un dalo elemental (elemento simple) y tiene como ob- 
jalon conjunto de caracteres (hasta de 30), que "direccionan” al 


compilador para comprender el número y la calidad de los'ele- 
mentos que lo distinguen. 

Las categorías de datos que pueden describirse por PICTU- 
RE (o PIC) son las siguientes: 


Alfabético. 

Numérico. 
Alfanumérico. 
Alfanumérico editado. 
Numérico editado. 


Para un dato alfabético, la cadena característica de PIC sólo 
puede contener "A" y "B”. el contenido del dato alfabético será 
cualquier combinación de las letras del alfabeto inglés y espacios. 

El número de caracteres que el dato contiene viene indicado 
entre paréntesis: 


04 EJEMPLO_1 PIC A(8). (o PIC AAAAAAAA) 


se utilizará para indicar que EJEMPLO_1 es un campo alfabético 
de 8 caracteres. 

Para un dato numérico, la cadena característica tendrá un "9 
por cada cifra (hasta un máximo de 18) y símbolos especiales, ta- 
les como “S”, que indica la presencia de un signo; "V”, que indica 
la posición del punto decimal, y "P”, que indica la posición a la 
que debe desplazarse la coma (PPP indicará un desplazamiento 
de tres lugares decimales). Así: 


04 EJEMPLO_1 PIC 9(7) (o PIC 9999999) 
indicará un número de 7 cifras, mientras que 
04 EJEMPLO_1 PIC S99V999. 


indicará un número de 5 cifras, de las cuales la primera compren- 
de el signo y las tres últimas representan la parte fraccionaria. 
Por último: 


04 EJEMPLO_1 PIC 99PPP. 


indicará que el número de 2 cifras efectivo se representará mul- 
tiplicado por 1000 (con desplazamiento de tres lugares decima- 
les). 
El contenido de un dato numérico será, pues, una combina- 
ción de las 10 cifras y, si está presente S, de los símbolos + y -.- 
Para un dato alfanumérico, que podrá contener cualquier com- 
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binación de los caracteres del juego del ordenador, la cadena ca- 
racterística suele estar constituida por "X” (ocasionalmente en 
unión con “A” y “9”) y por el número de caracteres que represen- 
ta su dimensión. 

Para un dato alfanumérico editado la cadena representativa 
debe contener al menos: 


una X y una B 
una X y un 0 
una X y un / 
una A y unO0 > 
una A y un / 


y también valores “9”; su contenido será una combinación de los 
caracteres del juego del ordenador. 

Para un dato numérico editado, la cadena característica pue- 
de contener solamente 0, 9, B, P, V, Z, /, *, +, — CR, DB, $, el punto 
y la coma. En efecto, tendrá que contener al menos uno de los sím- 
bolos 0, B, /, Z, *, +, -, CR, DB, $, el punto y la coma, y el contenido 
del dato estará constituido por números. 

Los datos editados sólo se utilizan en operaciones de transfe- 
rencia e impresión de datos en PROCEDURE DIVISION. 

El significado de cada símbolo dentro de la cadena caracte- 
rística de PIC es: 


e A representa una posición en la que insertar una letra del 
alfabeto o un espacio. 

e B representa una posición en la que introducir un espa- 
cio. 

e P indica un factor de escala 10 por el que multiplicar (si 
está a la derecha) o dividir (si está a la izquierda) el 
número dado. 

e S indica la presencia del signo. 


e V indica la presencia y la posición del punto decimal, 
pero no ocupa una posición adicional en la dimensión 
del dato. 


e X indica una posición en la que insertar cualquier carác- 
ter. 


e Z indica una posición numérica que, cuando contiene un 
Ono significativo, se representa por un espacio (ocupa 
una posición efectiva). 


e Y indica una posición en la que introducir una cifra. 
e () indica una posición en la que insertar un 0. 
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e / indica una posición en la que introducir una barra (/). 


(mm 


indica una posición en la que introducir una “/. 


e indica una posición en la que insertar un *” que no sea 
la posición del punto decimal. A diferencia con V, la po- 
sición se contabiliza en la longitud de la cadena. Cuan- 
do se especifica la opción DECIMAL POINT 15 COM- 
MA, en SPECIAL-NAMES, las atribuciones del punto y 
de la coma están completamente invertidas. 

e + indica una posición en la que introducir un espacio si 
el número es positivio ó 0, o, si el número es negativo, 
un signo *-”. 

e - indica una posición en la que introducir un signo *+” si 
el número es positivo 6 0, o, si el número es negativo, 


un signo *-”. 

e CR indica la posición en la que introducir dos espacios si 
el número es positivo ó O, y CR si el número es nega- 
tivo. 

e DB indica la posición en la que insertar dos espacios si el 
número es positivo ó O, y DB si el número es negativo. 

e * indica una posición numérica que, cuando contiene un 
cero no significativo, se representa por un asterisco 
(ocupa una posición efectiva). 

e $ (o el símbolo correspondiente establecido en CUR- 
RENCY SIGN IS en SPECIAL-NAMES) indica la posición 
en la que introducir el símbolo de la moneda. 


El símbolo “$” debe ser el primer carácter de la cadena (si no 
existen también “+” o "-”), mientras que “+” y “-” pueden ser el pri- 


PICTURE Dato final 
—ZZ,2Z9,99 45,378.00 
27,229.99 78.00 

229.99 .00 
222.22 


so 19,99 5,378.00 
sx 109,99 .*378.00 
¿$$9.99 3.78 
—22,229.99 —5.3/8.00 
Z222Z.99CR 5378.99CR 
99BB999 45 378 


Se ana 


1] Figura 3.— Datos numéricos editados. 
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mer y el último carácter y CR y DB, finalmente, deben aparecer 
en la última posición de la cadena. 

El signo V y el punto decimal se excluyen recíprocamente, 
así como +, —, CR, DB y Z, *. 

Cuando los signos de edición están repetidos, indican que el 
signo debe preceder a la primera cifra efectiva. 

Así, considerando la representación inicial y final de un dato 
numérico editado, se tendrán como ejemplos los mostrados en la 
figura 3. 


Usage 


La cláusula USAGE IS tiene relación con el formato de repre- 
sentación interna de los datos. Si la cláusula especificada es: 


USAGE IS DISPLAY 


puesto que el dato está destinado a visualizarse en la pantalla se 
conservará con el empleo de una unidad de memoria por cada 
carácter individual. Por consiguiente, un valor numérico se con- 
servará exactamente como se muestra al exterior, es decir, un ca- 
rácter por cada cifra. 

Cuando se utilizan muchos valores numéricos, puede ser de 
utilidad para ahorrar espacio en memoria emplear su representa- 
ción binaria, conservándoles de forma "“empaquetada”. Se utiliza- 
rán entonces las diversas formas COMPUTATIONAL, con las cua- 
les cada cifra se conserva en la mitad de una unidad de memoria, 
con el resultado de reducir a la mitad la ocupación correspon- 
diente. 

Una utilización especial es: 


USAGE IS INDEX 


por cuanto que las variables indicadas como INDEX no están su- 
jetas a las reglas que afectan a las variables normales y, por ello, 
no podrán inicializarse con las instrucciones normales. 

Es importante recordar que la cláusula USAGE, aplicada a un 
campo de un registro, actúa sobre todos los datos de los niveles 
inferiores al mismo. 


Las demás cláusulas 


Lá cláusula SIÓN indica la posición y la representación del sig- 
no cuando está especificado en la cláusula PICTURE del dato 
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al que se refiere y cuando por ello se haya declarado USAGE IS 
DISPLAY. Puede seguir (TRAILING/LEADING) al valor numérico 
o ser un carácter separado (TRAILING/LEADING SEPARATE). 
La cláusula OCCURS especifica un conjunto de campos del 
mismo tipo a los cuales se hace referencia mediante un índice. 
La sintaxis: 


OCCURS número_de-_veces [TIMES] 
[INDEXED [BY] nombre-Índice_] , nombre_índice-2 , ..] 


o bien: 


OCCURS num._1 TO num._2 [TIMES] DEPENDING [ON] 
nombre_dato [INDEXED [BY] nombre_índice_1 , ..] 


indica que un campo es un vector de datos homogéneos o una 
tabla y que el elemento del vector está identificado por el valor 
de nombre_índice_1, nombre_índice_2, etc. El número de elemen- 
tos del vector está establecido por número_de_veces o bien pue- 
de variar entre num._1 y num._2, dependiendo del valor tomado 
por nombre_dato. 

Así: 


04 ELEMENTO.F1 OCCURS 4 TIMES INDEXED BY IX]. 


representará lo mostrado en la figura 4. 


MN Figura 4— Efecto de la cláusula OCCURS. 


En donde el valor de IX1 especificará a qué elemento referirse. 
La cláusula SY/NCHRONIZED se refiere a la ocupación de la 
celda de memoria por parte de un dato. LEFT indicará que el dato 
ocupará la parte de memoria que le compete a partir de la iz- 
quierda y, si queda todavía espacio disponible, se introducirá el 
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número oportuno de espacios para impedir que otros datos se co- 
loquen en la parte de memoria sobrante. RIGHT indicará que el 
mecanismo de colocación del dato, aun permaneciendo el descri- 
to, tomará el desplazamiento de la derecha. A falta de indicacio- 
nes, será válida la opción LEFT. 

La cláusula JUSTIFIED, válida solamente para datos alfabéticos 
o alfanuméricos no editados, indica que:si un dato es más extenso 
que la variable que lo tiene que azoger, se perderán los caracte- 
res sobrantes a la izquierda. Esta opción solamente será válida 
cuando se quieran modificar los criterios normales de truncamien- 
to (a la derecha) y de alineación (a la izquierda) estándar de los 
datos elementales, 

La cláusula BLANK [WHEN] ZERO especifica que un dato, si 
su valor es cero, estará representado por espacios. Se trata de una 
cláusula que no puede “convivir” con una cláusula PICTURE en la 
que existan asteriscos. Se aplica solamente a datos elementales 
numéricos. 

La cláusula VALUE establece el valor inicial de un dato. Por 
supuesto, el valor proporcionado deberá ser compatible con la re- 
presentación de PICTURE establecida. 


Datos independientes 


Todos los datos que no pertenecen a un registro se distin 
guen por tener un número de nivel igual a 77 

Para dichos datos son válidas todas las opciones establecidas 
para los datos elementales, es decir: 


PICTURE, USAGE, SIGN, SYNCHRONIZED, JUSTIFIED, 
BLANK, VALUE 


Veamos un ejemplo de una declaración completa: 


IDENTIFICATION DIVISION. 
PROGRAM-ID DATA_1. 


ENVIRONMENT DIVISION. 
CONFIGURATION SECTION. 
SOURCE-COMPUTER.. 
OBJECT-COMPUTER.. 
SPECIAL-NAMES. 

DECIMAL POINT 15 COMMA. 
INPUT-OUTPUT SECTION. 
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FILE CONTROL. 
SELECT TARJETA-ENTRADA 
ASSIGN TO RANDOM, “TARJETAS” 
ORGANIZATION IS INDEXED 
ACCESS IS DYNAMIC 
RECORD KEY 15 NOME 


SELECT HOJA 
ASSIGN TO PRINT 


DATA DIVISION. 


FILE SECTION. 

FD TARJETA-ENTRADA 
BLOCK CONTAINS 2 RECORDS 
RECORD CONTAINS 128 CHARACTERS 
LABEL RECORDS ARE STANDARD 
DATA RECORD IS TARJETA 


FD HOJA 
VALUE OF MARGEN-SUP IS 6 
VALUE OF MARGEN-INF IS 6 
VALUE OF LINEAS-PAGINA IS 66 
VALUE OF INTERLINEA IS 1 
LABEL RECORDS ARE OMITTED 
DATA RECORD IS LINEA 


01 TARJETA. 
02 DATOS-ANAGRAFICOS. 
03 NOMBRE PIC X(30). 
03 DIRECCION PIC X(30). 
03 EDAD PIC 9(3). 
03 TELEFONO OCCURS 4 TIMES. — PIC X(10). 
04 DOMICILÍO PIC 9(4). 
04 PREFIJO PIC 9(8). 
04 NUMERO 
03 CIUDAD. PIC 9(6). 
04 CODIGO POSTAL PIC X(24). 
04 MUNICIPIO 
02 DATOS-CONTABLES. 
03 TOTAL-MES OCCURS 12 TIMES INDEXED BY MES. 
04 SALDO ' PIC-2Z,Z2Z.22Z.ZZ9 
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03 TOTAL-ANO 


02 FILLER 
01 LINEA 


A SECTION. 
771 


1131 
17 SENAL 
77 MES 

77 NOMBRE 
11 

78] 


01 LINEA-IMPRESION. 
02 NUM-ORDEN 
02 ANAGRAFICA 
03 NUMERICA 


01 TABLA. 


02 LINEA-MATRIZ OCCURS 12 TIMES. 


COMP-3 VALUE IS O. 
PIC-ZZ,2ZZ.2ZZ.ZZ9 
COMP-3 VALUE IS O. 
PIC X(99). 

PIC X(132) VALUE IS 
SPACE. 


PIC 9(2) VALUE IS 1. 


PIC 9(2) VALUE IS 0. 
PIC X VALUE IS “N”. 
PIC 99 VALUE IS 1. 
PIC X(30). 

INDICE. 

INDICE. 


PIC 9(4). 
PIC X(100). 
PIC X(28). 


03 COLUMNA-MATRIZ OCCURS 3 TIMES PIC-ZZ.222,777.7709. 


En este ejemplo están simbolizadas las opciones de más frecuen- 


te utilización. 


COBOL: INSTRUCCIONES 


Procedure Division (División de procedimientos) 


na vez definido el programa, especificado el 
ambiente exterior al mismo y las característi- 
cas de Entrada/Salida y definida, así como la 
naturaleza y estructura de todos los datos que 
se utilizarán, al compilador no le queda sino co- 
nocer el modo en el que los datos se procesa- 
rán y modificarán o, lo que es lo mismo, las ins- 
trucciones efectivas de ejecución. 

Es Ei PROCEDURE DIVISION puede dividirse en 
secciones, párrafos y segmentos (o frases), terminando normal- 
mente con la instrucción END PROGRAM. 

Las secciones y los párrafos son encabezamientos de grupos 
de instrucciones que es posible activar haciendo referencia a su 
denominación, y sus cabeceras se escriben en la zona A. 

Así: 


PROCEDURE DIVISION. 


MUESTRA SECTION 
instr._1 
instr._2 


instr_N 


END PROGRAM. 


indica que si en una instrucción existe un reenvío a MUESTRA se 
ejecutarán las instrucciones 1, 2, .. N contenidas en ella. 
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Los segmentos, numerados de O a 127, se utilizan para espe- 
cificar qué parte del programa quedará siempre en memoria, por 
cuanto que se define de forma implícita como área fija (los seg- 
mentos O a 49) y qué parte se cargará solamente cuando se soli- 
cite por instrucciones específicas de referencia (50 en adelante). 

Se admite también la inserción de una sección DECLARATI- 
VES, en la cual se incluirá la instrucción USE que se empleará para 
indicar, en caso de error, qué subrutina deberá ejecutarse, defini- 
da en el ámbito de la misma sección, cuando no esté prevista con 
anterioridad entre las cláusulas de los comandos un procedimien- 
to de tratamiento del error. Su sintaxis será: 


PROCEDURE DIVISION. 

DECLARATIVES. 

CONTROL-1-O SECTION. 
USE AFTER ERROR PROCEDURE [-O. 
GESTION-ERROR. 
DISPLAY "ERROR EN EL PROCEDIMIENTO”. 
STOP RUN. 

END DECLARATIVES. 

END PROGRAM. 


La sección DECLARATIVES debe terminar con END DECLA- 
RATIVES. 
La instrucción más utilizada en COBOL es, seguramente, 


MOVE valor TO var._1 , var.2... 


que realiza la asignación de un valor o un dato. Así es posible la 
inicialización de varios datos, alfabéticos y numéricos, en cual- 
quier punto del programa. 

La única restricción se tiene con las variables en las que 
USAGE esté definido como INDEX, en cuyo caso la instrucción co- 
rrespondiente ha de ser SET. 

Así: 


MOVE "TITULO" TO ENCABEZAMIENTO 
MOVE SPACE TO CABECERA 

MOVE ZERO TO CONTADOR 

MOVE 0 TO A,B,C,D(17) 

MOVE 45.7 TO NUMERO 


son válidas si ENCABEZAMIENTO y CABECERA están definidas 
como variables alfabéticas y CONTADOR,A,B,C, el vector D() y 
NUMERO, lo están como variables numéricas. 

Es importante transferir también un valor a una variable no 
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elemental que represente a un conjunto de datos. No obstante, 
para las transferencias complejas es preferible utilizar la opción 


MOVE CORRESPONDING nombre_1 TO nombre-2 


con la cual los datos se transferirán con. la debida atención a la 
composición de los grupos. 


Operaciones aritméticas 


Las operaciones aritméticas son: 


e AND 

e SUBTRACT 
e MULTIPLY 
e DIVIDE 


que tienen una sintaxis que respeta perfectamente las expresio- 
nes inglesas correspondientes. 

Para ellas existen dos formas alternativas según que se tenga 
que introducir o no el resultado de la operación en una nueva va- 
riable. Así 


ADD 1 TO PARCIAL 


introducirá en la variable PARCIAL el valor anterior incrementa- 
do en 1, mientras que 


AND PARCIAL-1,PARCIAL-2 GIVING TOTAL 


efectuará la suma de PARCIAL-1 y PARCIAL-2, introduciendo el 
resultado en TOTAL, 

Una opción adicional común a todas las operaciones aritmé- 
ticas es la proporcionada por 


ROUNDED 


que especifica el redondeo a realizar para un número en corres- 
pondencia con la última cifra indicada en su PICTURE. Si no fuera 
así, se provocaría el truncamiento, en el caso de que el número 
de cifras resultante fuera superior al especificado. 

También es posible indicar 


ON SIZE ERROR Instrucción-a-ejecutar 
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que especifica una instrucción a ejecutar cuando se verifique un 
error de superación de la dimensión máxima prevista para un va- 
lor numérico. Cuando exista esta opción, el valor numérico "erró- 
neo” se mantendrá para poder examinarlo, en lugar de hacerse in- 
definido. 

Así, en el caso 


ADD SUMANDO-1 SSUMANDO-2,SUMANDO-3 CIVING TOTAL 
ROUNDED ON SIZE ERROR STOP RUN 
SUBTRACT SUSTRAENDO FROM MINUENDO GIVING 
DIFERENCIA =. 
ROUNDED 
MULTIPLY FACTOR-1 BY FACTOR-2 GIVING PRODUCTO 
DIVIDE DIVIDENDO BY DIVISOR CGIVING COCIENTE 
ROUNDED ON SIZE ERROR DISPLAY"“ERROR” 


las variables TOTAL, DIFERENCIA, PRODUCTO y COCIENTE con- 
tendrán los resultados de las operaciones respectivas. 

La instrucción COMPUTE calcula expresiones algebraicas 
complejas, en las cuales existen los operadores: 


+ suma 

- resta 

le multiplicación 
/ división 

** potencia 

() paréntesis 


que respetan los niveles de prioridad establecidos por el álgebra 
(y respetados, asimismo, por el lenguaje Fortran), es decir: 


paréntesis 

potencias 

multiplicaciones y divisiones 
sumas y restas 


Así: 
COMPUTE RESULTADO=3+5*6- (DATO + INCREMENTO) 


con DATO = 5 e INCREMENTO = 2, proporcionará en la variable 
RESULTADO el valor 26 (es decir, 3 + 30 - 7). 

Para todas las operaciones algebraicas la representación de 
los números vendrá determinada por el tipo de operandos espe- 
cificado en USAGE 18 de las respectivas descripciones, teniendo, 
pues, valores COMP si se especifican expresamente en las defi- 
niciones de todos los datos. 
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La instrucción IF 


También en el lenguaje COBOL existe la posibilidad de exa- 
minar el valor de un dato, el resultado de una expresión aritmé- 
tica o el sentido de una comparación entre dos elementos. 

La sintaxis general es: 


] A A 
1F COMCUCIOLMR 


ELSE 


en donde, si la condición indicada es verdadera, se ejecuta la ins- 
trucción sucesiva (NEXT SENTENCE) o la indicada por la instruc- 
ción_1 y, por el contrario, si la condición no es verdadera, se eje- 
cutará cuanto sea especificado a continuación de ELSE, es decir, 
la instrucción sucesiva o la indicada por la instrucción_2. 

Las condiciones pueden expresarse por una variable, una ex- 
presión aritmética o por una expresión condicional. 

Una expresión condicional puede tomar solamente dos valo- 
res, verdadero o falso, según que cuanto sea indicado por la ex- 
presión se verifique por las relaciones existentes entre los valo- 


res de las magnitudes implicadas. La forma genera! de a expre 
sión condicional simple puede ser: 
elemento_1 IS EQUAL / = TO elemento_2 
IS NOTEQUAL TO 
IS GREATER / > THAN 
IS NOT GREATER THAN 
IS LESS / < THAN 
IS NOTLESS THAN 
con el significado siguiente: 
A IS EQUAL TO B proporcionará un valor 
verdadero si A = B. 
A IS NOT EQUAL TO B verdadera si A es dife- 
rente de B. 
A IS CREATER THAN B tags si A es mayor 
que B. 
A IS NOT GREATER THAN B es verdadera si A es me- 
nor o igual a B. 
A IS LESS THAN B es verdadera si A es me- 
nor que B. 
A IS NOT LESS THAN B verdadera si A es mayor 
o igual a B. 


Varias expresiones condicionales simples pueden unirse me- 
diante los operadores AND,OR y NOT que especifican, respecti- 
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vamente, que la expresión compleja resultante será verdadera si 
todas las expresiones simples que la constituyen son verdaderas 
(AND), si al menos una de las expresiones simples se verifica (OR) 
o si es verdadero su inverso (NOT). 

Así: 


A IS EQUAL TO B AND C IS NOT EQUAL TO D 
será verdadera si A = B y C diferente de D, mientras que: 


A IS EQUAL TO B OR M(1) IS GREATER THAN 0 OR HIS NOT 
EQUAL TO Q 


será verdadera si A = B, si M(1)>0 o si H = Q, mientras que: 
NOT A =B 


será verdadera si es falso que A es igual a B. 

Otra forma de las expresiones condicionales se refiere a la na- 
turaleza de un dato, que puede ser "indagada” para valorar si se 
trata de un dato numérico o alfabético con: 


dato IS / 18 NOT NUMERIC/ALFABETIC 


mientras que para los datos solamente numéricos es posible ave- 
riguar si: 


dato “IS / 15 NOT POSITIVE 
NEGATIVE 
ZERO 


es decir, si el dato es mayor, menor o igual a 0. 

Cuando se tiene una expresión condicional compleja, el or- 
den de resolución de la expresión sigue el criterio de prioridad 
asociado a los operadores condicionales, es decir: 


paréntesis 

expresiones aritméticas 

valoración expresiones condicionales simples 
valoración AND y OR. 


En definitiva, el procedimiento . 
PROCEDURE DIVISION. 
ASIGNACIONES-INICIALES 

MOVE ZERO TOA ,B 
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MOVE 4 TO M(1) 
MOVE “INICIO” TO HACHE 
MOVE “FIN” TO Q. 
TEST. 
IF A=B AND M(1)>0 AND HACHE NOT EQUAL TO Q 
DISPLAY “TODO CORRECTO”, 
ELSE DISPLAY “RESULTADO NEGATIVO”. 
END PROGRAM. 


producirá la impresión de la frase TODO CORRECTO, puesto que 
el test examina una condición que resulta ser verdadera. 

De cualquier modo, una vez terminada la sección en la que 
se encuentra IF, se ejecutará la instrucción inmediatamente pos- 
terior. 


PERFORM 


Por lo que respecta a la ejecución de bucles repetitivos bajo 
el control de una variable, la sintaxis es: 


PERFORM proc._1 [THROUGH/THRU proc._2] 
con las opciones 


VARYING var._1 FROM val._1 
BY incr._1 UNTIL condic._1 


que especifica al compilador que el programa ejecutará todas las 
instrucciones contenidas entre el encabezamiento del procedi- 
miento proc._1 y el de proc._2, suponiendo que var._1 es la varia- 
ble de control, cuyo valor inicial será val._1, el bucle se ejecutará 
el número de veces que resulta de incrementar var._1 en incr._1 
al final de cada bucle hasta que sea falsa la condición condic._1. 
Tan pronto como esta condición sea verdadera terminará el bucle. 
Así: 


PROCEDURE DIVISION 
INICIO 
PERFORM BUCLE THRU FIN-BUCLE 
VARYING I FROM 0 BY 2 
UNTIL 118 GREATER THAN 10 
BUCLE. 
DISPLAY “REPETICION NUMERO”. 
DISPLAY (1/2) + 1 
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PIN-BUCLE. 
EXIT. 
END PROGRAM. 


producirá, en el curso de 6 bucles, la impresión de los números 
desde 1 a 6, por cuanto que las instruccicnes desde BUCLE a FIN- 
BUCLE se ejecutan evaluando el valor que toma 1 que, partiendo 
de 0, se incrementa en 2 al final de cada bucle y el bucle se re- 
petirá mientrs 1] sea menor o igual a 10. 

Otra forma de PERFORM indica directamente cuántas veces 
debe ejecutarse el bucle; así: .. 


PERFORM BUCLE THRU FIN-BUCLE 2 TIMES 


haría que se ejecutara BUCLE dos veces, sin ninguna necesidad 
de examinar variables de control. 

Es posible que un bucle PERFORM contenga, a su vez, otro 
pude, a impo un bucle PERFORM no t 3 una 
instrucción Í fuel ; 2 PERFORM que le es más ex 
usado el Bucle breves qn modificación de varios índices se po- 
drá utilizar la forma: 


PERFORM proc._1 THRU proc._2 
VARYING var._1 FROM val._1 
BY incr._1 UNTIL condic._1 
AFTER var._2 FROM val._2 
BY incr._2 UTIL condic._2 


en donde el bucle se realiza también bajo control de var._2. 

En realidad el bucle se ejecuta exactamente como antes, pero 
si condic._1 es falsa, el bucle proseguirá examinando la condición 
condic._2 y el bucle se realizará bajo el control del valor var._2. 
Tan pronto como sea verdadera condic._2 el bucle volverá a exa- 
minar condic._1, y si la encontrase falsa, recomenzará desde el 
principio, mientras que si la encontrase verificada terminará de 
forma definitiva. 

Así, se tendrá el diagrama de bloques de la figura 5. 

En condiciones normales se acopla a PERFORM la instrucción 
EXIT, que determina el punto común de término para varios pro- 
cedimientos. Por consiguiente, se podrá encontrar con frecuencia 
en un programa 


FINE-PROC. 
EXIT. 


como instrucción terminal de referencia de un bucle PERFORM, 
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PREFORM 


verdadera ——————»> fin bucle 


MN Figura 5.— Bloques PERFORM anidados. 
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Display 


La instrucción que permite al programa mostrar en la pantalla 
informaciones, textos y datos es DISPLAY. 

Su sintaxis permite definir la posición, la forma y el modo en 
que se presentarán los datos en la pantalla. 

En la sintaxis general: 


DISPLAY dato [UNIT nombre_unidad] 
[LINE número línea POSITION número_columna 


SIZE número_caracteres " 
BEEP ERASE 
HIGH/LOW BLINK REVERSE] 


el argumento “dato” contiene el dato a presentar en pantalla y 
LINTT, si se indica, el terminal en el que deberá visualizarse el dato. 
En algunas versiones de COBOL se puede utilizar, con tal objeto, 
la cláusula UPON TERMINAL. 

Es oportuno destacar que para que un dato sea suscepti- 
ble de presentación en pantalla debe declararse que USAGE IS 
DISPLAY. 

LINE indica la línea y POSITION indica la columna en corres- 
pondencia de las cuales el dato deberá visualizarse. A falta de es- 
tas indicaciones, el dato se imprimirá en la línea inmediatamente 
posterior a la posición actual del cursor o, si POSITION = 0, exac- 
tamente en donde se encuentra en ese momento. 

SIZE especifica el número de caracteres que la presentación 
visual asociará a “dato” y que serán objeto de impresión. Si es me- 
nor que el contenido efectivo de dato, serán visualizados los ca- 
racteres que quepan a partir de la izquierda. SIZE, si se indica, tie- 
ne un “poder” superior a la indicación dimensional de PICTURE 
en el caso de discrepancia entre sus valores. 

BEEFP especifica la ejecución de una señal acústica y ERASE 
el borrado de toda la pantalla antes de la impresión de dato. 

HIGH especifica que el dato (si el terminal permite estas de- 
finiciones) será presentado con doble luminosidad, LOW que será 
mostrado con una intensidad luminosa normal, BLINK que el rótu- 
lo será parpadeante y REVERSE que los caracteres serán, en vez 
de luminosos sobre el fondo oscuro como es habitual, oscuros so- 
bre campo luminoso. 

Así: 


DISPLAY “Este es un rótulo” 
LINE 10 POSITION CRS-POSIT 
BEEP 
HIGH BLINK 
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producirá la frase: "Este es un rótulo” en la línea 10 y en la colum- 
na indicada por el valor de CRS-POSIT, generando una señal acús- 
tica antes de la impresión y mostrando el rótulo parpadeante en 
doble luminosidad, 


ACCEPT 


La instrucción ACCEPT permite adquirir directamente desde 
el terminal el valor a introducir en una variable. 
Su sintaxis es: 


ACCEPT dato [UNIT nombre_unidad] 
[LINE número línea POSITION número_columna 
SIZE número_caracteres PROMPT símbolo 
ECHO CONVERT TAB ERASE NO BEEP OFF 
HIGH/LOW BLINK REVERSE 
ON EXCEPTION nombre_1 instrucción-1] 


Para que sea válida, USAGE del dato no debe ser INDEX, 
Como en el caso de DISPLAY, a falta de UNIT que especifique el 
puesto de trabajo desde cuyo lugar se obtendrá la adquisición se 
sobrentiende que la operación tendrá lugar en correspondencia 
con el terminal que ha “lanzado” el programa. 

LINE y POSITION especifican la posición en la pantalla en la 
cual se realizará la aceptación del dato, con las mismas peculiari- 
dades de DISPLAY, es decir: indicar, a falta de especificaciones, 
la línea sucesiva o la misma posición (POSITION 0) en la que se 
encuentra el cursor. 

SIZE, si se especifica, indica el número de caracteres que se- 
rán aceptados por el terminal y tiene una prioridad superior a la 
de PICTURE del dato elemental. Las reglas de aceptación siguen 
las de JUSTIFICATION especificadas o las de MOVE, es decir, el 
dato numérico alineado a la derecha y el dato alfabético alineado 
a la izquierda. 

PROMPT especifica que la entrada del dato será guiada por 
la existencia de un número de símbolos igual a SIZE. Cuando no 
se especifica el carácter de PROMPT, será el guión de subrayado 
quien rellene el campo a partir del cual se extraerá el dato. La op- 
ción ECHO especifica que el contenido efectivo del dato, después 
de las alineaciones y conversiones de costumbre, se visualizará 
en la posición indicada. 

CONVERT, para los valores numéricos, realiza la conversión 
en un número con el signo en la posición de la derecha y con la 
escala adecuada especificada. 
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"AB hace que la entrada no termine cuando se alcanza el fi- 
nal del campo especificado, sino que sea necesario un RETURN 
(0 ENTER) para especificar que el dato se adquirió de modo de- 
linitivo. También será posible aceptar un BACKSPACE (RETRO- 
GESO), que reposiciona la entrada al carácter inmediatamente an- 
terior y un TAB que lleva la entrada al primer carácter del campo. 

ERASE indica que la pantalla se borrará antes del posiciona- 
miento del campo de entrada. 

NO BEEP suprime la señal acústica que se suele emitir en co- 
rrespondencia con una instrucción de ACCEPT. 

OFF anula la presentación visual del contenido del dato ad- 
quirido desde el teclado (se suele emplear para las palabras de 
acceso a datos protegidos contra consultas no autorizadas). 

HIGH, LOW, BLINK y REVERSE muestran, como para DISPLAY, 
el contenido en luminosidad intensa, normal, parpadeante o en 
Campo inverso. 

ON EXCEPTION actúa si un carácter irregular se introduce 
desde el teclado. En consecuencia, el valor irregular se inserta en 
la variable nombre-_1 y esta última puede examinarse por instruc- 
ciones sucesivas para valorar la naturaleza de la irregularidad. 

Así: 


ACCEPT VALOR-DE-PARTIDA 
LINE LIN POSITION COL 
SIZE 10 PROMPT 
ECHO 
CONVERT 
TAB 
REVERSE BLINK 
ON EXCEPTION CONTROL EXAMEN-ERROR 


hará que sea posible adquirir de la pantalla el valor a introducir 
en la variable VALOR-DE-PARTIDA. El campo de entrada se po- 
sicionará en la columna y en la fila especificadas por las variables 
COL y LIN, se podrán tomar 10 caracteres como máximo o todos 
los que precedan al RETURN. Antes de la introducción se visua- 
lizarán 10 trazos de subrayado en la posición a partir de la cual 
adquirirá el dato, y una vez efectuada la conversión numérica se 
mostrará, en el mismo punto, el valor efectivo de VALOR-DE-PAR- 
TIDA, en campo inverso y con los caracteres parpadeantes. Será 
posible teclear también retrocesos (BACKSPACE) y tabulaciones 
(TAB) para corregir los valores tecleados. Si se escribiera un ca- 
rácter irregular será englobado en CONTROL y la ejecución del 
programa se restablecerá por el procedimiento EXAMEN-ERROR. * 
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GOTO y STOP 


La instrucción GOTO realiza la transferencia del control del 
programa al procedimiento especificado, y así: 


CALCULOS. 
ADD A TO B. 
MULTIPLY B BY 3 ROUNDED. 
GOTO FIN-PROGRAMA. 
TODAVIA-MAS-CALCULOS. 
DIVIDE 4 BY 1.5 
ROUNDED. 
FIN-PROGRAMA. 
EXIT. 
END PROGRAM. 


no ejecutará la sección TODAVIA-MAS-CALCULOS por cuanto 
que GOTO obligará al programa a ejecutar FIN-PROGRAMA. 

También es posible una transferencia condicionada al valor 
de un dato, lo que se realiza con: 


GOTO proc._1 , proc.2 ,.. 
DEPENDING ON val._1 


en donde si val._1 tiene el valor 1, el control se transferirá a proc._1, 
si tiene el valor 2 se transferirá a proc._2, y así sucesivamente. Si 
val._1 no tiene un valor utilizable, el control pasará a la instrucción 
sucesiva. 

Para interrumpir la ejecución de un programa, la instrucción 
a especificar es: 


sTOP 


que puede ir seguida por la palabra RUN o por una frase que se 
imprimirá en la pantalla. 


SET 


En caso de manejo de tablas y dado que un elemento de una 
tabla puede puede identificarse por su número de orden o por me- 
dio de índices, es necesario destacar el hecho de que un índice, 
en lenguaje COBOL, se trata de manera particular, por cuanto que 
al mismo se asocia un valor de 2 bytes, que corresponde a 
PIC 9(4) COMP cuando USAGE IS INDEX. 
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Por consiguiente, para un índice no pueden indicarse las op- 
ciones características de los datos elementales, tales como VA- 
LUE, PIC, etc., y, por ello, su valor será indefinido en el momento 
de la declaración. 

No obstante, para poder atribuir un significado y, por consi- 
guiente, un valor a los vínculos entre índices y elementos de una 
tabla, se utiliza la instrucción: 


SET nombre_índice-_l, a TO nombre-_1 
O bien: = 
SET nombre_índice_1 , .. UP BY/DOWN BY nombre_1 


que establecen que nombre_índice_1, etc. debe tener el mismo 
valor al que se refiere nombre_1 o que ha de incrementarse o de- 
crementarse en el valor al que se refiere nombre_1. 


CALL 


En COBOL es posible que un programa llame a otro y que le 
transfiera, sin modificar, el valor de algunos datos. Para conseguir- 
lo se hace referencia al nombre declarado en PROGRAM-ID, a al- 
gunas opciones adicionales especificadas en PROCEDURE DIVI- 
SION y a la introducción de la lista de los datos compartidos en 
LINKAGE-SECTION de DATA DIVISION del programa objeto de 
llamada. 

Para conseguir, por ejemplo, que el programa "A” llame al pro- 
grama "B” y le transfiera el valor de las variables COM-1 y COM-2, 
deberá especificarse en PROCEDURE DIVISION: 


CALL "“B” USING COM-1, COM-2 
y en el programa B: 


PROGRAM-IDB. 
DATA DIVISION. 


LINKACE-SECTION. 
71 COM-1 PIC .. 
717 COM-2 PIC .. 
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PROCEDURE DIVISION USING COM-1, COM-2. 


EXIT PROGRAM. 


por cuanto que la correspondencia entre la lista de los datos es- 
pecificados en la CALL del programa que realiza la llamada y en 
USING del programa llamado es rígida, con una correspondencia 
precisa de la primera variable con la primera variable del otro pro- 
grama, de la segunda con la segunda, etc. 

Es fundamental que todos los datos definidos en PROCEDU- 
RE DIVISION USING... del programa llamado sean declarados en 
alguna sección de su DATA DIVISION. 

La instrucción EXIT PROGRAM restituirá el control al progra- 
ma que hace la llamada. 

También para CALL es posible que un programa llamado lla- 
me, a su vez, a otro programa, transfiriéndole datos y valores. 
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COBOL: EL ACCESO A LOS FICHEROS 


File Status 


e vio anteriormente que en la sección FILE CON- 
TROL es posible definir una variable en la que 
encontrar el resultado de una operación de ac- 
ceso a los datos de los ficheros. Esta variable 
“de estado” comprende dos caracteres, de los 
cuales el primero indica si la operación tuvo un 
resultado satisfactorio o no y el segundo depen- 
de del valor tomado. 

ANC Si el primer carácter contiene un 0, ello in- 
dió que la operación tuvo un resultado satisfactorio y, por consi- 
guiente, también el segundo carácter tendrá un 0. : 

Si el primer carácter contiene el valor 1, el programa encon- 
tró una tentativa de acceso a registros externos al fichero, es de- 
cir, la condición de fin_del_fichero. Este estado se indica con AT 
END, por cuanto que puede determinarse con instrucciones es- 
peciales. También en este caso el segundo carácter contendrá O. 

Si el primer carácter contiene 2, lo que no se puede verificar 
con ficheros de organización secuencial, el programa señala la es- 
pecificación de una clave de acceso no válida, condición que se 
expresa por INVALID KEY, que puede determinarse con instruc- 
ciones sucesivas. También en este caso el segundo carácter con- 
tendrá un valor 0. 

Si el primer carácter contiene 3, el programa registró un error 
no recuperable, que puede depender de los datos, de las opera- 
ciones de entrada/salida, etc. El segundo carácter contendrá to- 
davía un valor 0. 
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Si el primer carácter contiene 9, el programa registró un error 
que suele ser particular del sistema operativo del ordenador, es 
decir del ambiente que “rodea” al programa COBOL. En este caso, 
el segundo carácter contendrá un código que indica la naturaleza 
del error encontrado. 


OPEN 


Para tener acceso a un fichero, la primera operación a efec- 
tuar es la de "abrirlo", es decir, de hacerlo accesible al programa 
introduciéndolo en un canal de comunicación con el ordenador. 

Al tener relación con ficheros de acceso secuencial, la sinta- 
xis será: 


OPEN INPUT nombre_del fichero_1 ,.. [WITH NO 
REWIND] 
OUTPUT nombre_del fichero_2 ,.. [WITH NO 
REWIND] 
EXTEND nombre_del fichero_3 ,.. 


(varios ficheros pueden abrirse de forma simultánea). 

Si la operación de apertura tuvo un resultado satisfactorio, se 
tendrá la posibilidad de acceder a los datos contenidos en el fi- 
chero. En el curso del mismo programa no es posible reabrir un 
fichero todavía abierto, a no ser que se provoque un error; se de- 
berá cerrar con anterioridad. 

Si un fichero se abre en INPUT el programa se posicionará de 
forma automática en su primer registro, por cuanto que el acceso 
secuencial permite solamente la lectura de los registros uno tras 
otro, en orden de presencia en el fichero. La opción NO REWIND, 
que solamente es válida cuando el fichero tiene el soporte de la 
unidad de almacenamiento en cinta, no da lugar a este reposicio- 
namiento automático, que tendrá que ejecutarse mediante otras 
instrucciones. 

También con un fichero abierto en OUTPUT, el programa 
apuntará a su primer registro (a no ser que sea especificado NO 
REWIND) para iniciar las operaciones de escritura, Es importante 
destacar el hecho de que la apertura de un fichero en OUTPUT, 
si se utilizara con un fichero no existente, realiza su “creación”, 
mientras que si el fichero existe ya, efectuará el borrado comple- 
to de su contenido anterior. ; 

La opción EXTEND indica la intención de efectuar operacio- 
nes de escritura en el fichero a partir de su último registro, es de- 
cir, extendiendo su dimensión sin destruir el contenido anterior. 
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Para ficheros de acceso directo, relativos o de índice, la sin- 
taxis será: 


OPEN INPUT nombre_del fichero_1 ,.. 
OUTPUT nombre-_del fichero-2 , .. 
TO nombre_del fichero_3 A E 


por cuanto que las opciones EXTEND y NO REWIND no tienen 
sentido para ficheros con tal organización, mientras que es impor- 
tante, precisamente por la naturaleza de estos ficheros, tener la po- 
sibilidad de leer y escribir simultáneamente en el mismo registro. 
Para estas clases de ficheros, la apertura no da lugar al posi- 
cionamiento en el primer registro, por cuanto que para cada ope- 
ración de acceso a los datos se tendrá que especificar (mediante 
el valor de RELATIVE y RECORD KEY) qué registro abordar. 
Para estos tipos de fichero, la indicación de INPUT en presen- 
cia de LABEL RECORD, determina la evaluación de los valores de 
las etiquetas, mientras que OUTPUT da lugar a la nueva escritura 
de las etiquetas “LABEL” según las especificaciones necesanas. 
Además, si se “direcciona” un OPEN OUTPUT a un fichero no 
existente se producirá su creación, mientras que OPEN INPUT para 
un fichero inexistente dará lugar, con la primera tentativa a los da- 
tos, a una condición de error AT END. 
Por último, cualquier operación de OPEN producirá la actua- 
lización del valor de la variable STATUS. 


CLOSE 


Cuando estén terminadas todas las operaciones de acceso a 
uno o más ficheros, es conveniente “apartarlos” del programa me- 
diante la instrucción CLOSE. 

Para los ficheros secuenciales su sintaxis será: 


CLOSE nombre-del fichero_1 [REEL WITH NO REWIND 
UNIT 
LOCK] 
nombre_del fichero_2 .. 


mientras que para los ficheros de acceso directo, relativos y con 
índice, tendremos: 


CLOSE nombre-_del fichero_1 [LOCK] 
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en donde REEL y UNIT tienen una función exclusiva de documen- 
tación sobre las características de las unidades de cintas. 

La opción LOCK tiene una importancia especial, por cuanto 
que impide que, en el curso del programa, se pueda volver a abrir 
el fichero correspondiente. Por supuesto, es posible efectuar una 
operación de CLOSE solamente en ficheros abiertos con anterio- 
ridad. 

Una función especial de CLOSE es la de escribir en el fichero 
la señal de End_Of File (final de fichero), reconocida como un ca- 
rácter especial por los programas. 

La instrucción STOP RUN ejecutada-sin CLOSE obligará, por 
el contrario, al sistema operativo del ordenador a cerrar el fichero 
sin emitir la señal de EOF (final de fichero). 

También la operación de CLOSE actualizará el valor de FILE 
STATUS. 


Acceso a los registros 


El único modo de acceder a un fichero "LOCKed” (bloquea- 
do) por un programa es “lanzar”, mediante otro prograrda, una ins- 
trucción tal como: 


UNLOCK nombre_del fichero [RECORD] 


que hace disponible el último registro procesado de un fichero 
bloqueado. 

Por supuessto, esta instrucción no permite el acceso al fiche- 
ro por parte del mismo programa que lo ha bloqueado. 

De cualquier modo, vamos a examinar las operaciones más 
comunes de acceso a los datos de los ficheros. 

En lo que respecta a la escritura, se utiliza el comando WRITE 
que, en el caso de ficheros de organización secuencial, tiene la sin- 
taxis: 


WRITE nombre_del registro [FROM nombre_1] 
BEFORE/AFTER ADVANCING PAGE/nombre_2 LINES 


El efecto de dicha instrucción será realizar una escritura en 
el fichero (a condición de que esté abierto OUTPUT o EXTEND) 
utilizando como destino la definicción del nombre_del_registro 
proporcionada en DATA DIVISION. 

Si existe la opción FROM, el efecto será transferir el valor de 
nombre. a nombre. del registro (como por efecto de una ins- 
Imeción MOVE), 
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La opción ADVANCING, válida solamente si se selecciona la 
impresora, especifica la ejecución de una impresión del registro 
que deberá ir seguida o precedida por el avance de una serie de 
líneas o de una página completa. En lo que respecta a los límites 
del fichero, puesto que se fijaron en otra sección, no pueden mo- 
dificarse por una simple operación de escritura y, por consiguien- 
te, en el caso de superación por el registro de las dimensiones 
del fichero, se producirá una situación de error, verificable en FILE 
STATUS. 

En caso de ficheros relativos o con índice, la sintaxis será: 


WRITE nombre_del registro [FROM nombre_]] 
INVALID KEY instr._1 


Para los ficheros relativos y con índice, si el acceso es se- 
cuencial, no será necesario indicar el valor de RECORD KEY, que 
será proporcionado directamente por el sistema operativo. Es di- 
ferente el caso de acceso aleatorio o dinámico o de apertura LO 
(eñtrada/salida) por cuanto que el programa deberá establecer 
la clave de acceso al registro que se quisiere escribir. Por consi- 
guiente, mientras que en el acceso secuencial los registros se pro- 
cesarán uno tras otro en el mismo orden “lógico” en el que se dis- 
pusieron en el registro, con los accesos dinámico y aleatorio será 
posible que los registros se escriban en cualquier orden, sin la 
obligación de que sean consecutivos. 

La indicación de INVALID KEY es necesaria cuando no exista 
un procedimiento USE (de tratamiento de errores) asociado al fi- 
chero. Se hace operativa cuando existe un error en la especifica- 
ción de una clave de acceso al fichero (clave ya asignada, regis- 
tro existente, etc.) o si se intentan superar los límites del fichero. 
En este caso el control pasará a instr._1. Por supuesto, el valor de 
FILE STATUS registrará esta condición. 

Otra instrucción de escritura, que se utilizará cuando se quie- 
ra sustituir el valor de un registro ya existente, es: 


REWRITE nombre_del registro [FROM nombre-_1] 
en caso de acceso secuencial y con la adición de: 


INVALID KEY instr._1 


para acceso relativo y con índice. 

Por supuesto, deberá declararse la modalidad 1-O para per- 
' mitir dicha escritura, la cual ha de ir precedida por una operación 
de READ (lectura) en el mismo fichero. 

En lo que respecta a la lectura de un registro de un fichero, 
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la instrucción utilizada es READ que, en caso de acceso secuen- 
cial, tiene la sintaxis: 


READ nombre_del_fichero RECORD [INTO nombre-1] 
[AT END instr._1] 


Realiza la lectura en correspondencia con la posición del “punte- 
ro”, que es la señal que indica el registro en el que se ejecutará 
la operación sucesiva. Esto implica que, si se acaba de efectuar 
una operación de OPEN secuencial, el fichero fue objeto de posi- 
cionamiento en el primer registro y, por-consiguiente, se leerá el 
primer dato del fichero, mientras que si se realizaron ya otras ope- 
raciones de lectura “READ”, al ser automático el desplazamiento 
del puntero, el registro leído será el siguiente al último procesado. 

La opción INTO produce un efecto similar a la instrucción 
MOVE y tiene efecto solamente si READ fue objeto de referencia 
a registros de dimensiones fijas y si la operación tuvo un resulta- 
do satisfactorio. 

La opción AT END, a especificar cuando no se asoció una 
subrutina de USE al fichero, indica la instrucción a la que se de- 
berá transferir el control del programa cuando se intente leer más 
allá del último registro del fichero, es decir, cuando se haya de- 
tectado el final de fichero (EOF). Será, pues, necesario, para tener 
acceso de nuevo al fichero, una secuencia de CLOSE y OPEN. Con 
ficheros relativos y con índice, se utilizará: 


READ nombre-del fichero [NEXT RECORD WITH NO LOCK] 
[INTO nombre-_1] 
AT END instr._1 


o bien 


READ nombre_del fichero RECORD [WITH NO LOCK] 
[INTO nombre_]] 
KEY IS nombre-dato 
INVALID KEY instr._2 


La primera forma se usa cuando se quieren leer de manera 
secuencial los ficheros de acceso dinámico y la segunda cuando 
se quieran leer de modo aleatorio. 

La opción KEY IS sólo es necesaria cuando el fichero es del 
lipo con índice, por cuanto que se precisa especificar, para cada 
operación, la clave de acceso a los registros. 

Por consiguiente, AT END e INVALID KEY representan la in- 
dicación de la subrutina de control de la situación particular que 
ÑO va a crear cuando se está en el final de fichero (para acceso 
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secuencial) o si se indica una clave de acceso errónea (de tipo 
aleatorio). 

Para que la primera forma de READ tenga sentido es necesa- 
ño que el puntero del registro a leer esté posicionado con la ins- 
trucción START. Ello será necesario solamente para la primera lec- 
tura, por cuanto que el puntero actualiza su posición después de 
cada acceso, 

En caso de fichero con índice, cuando un registro se haya des- 
crito con varias estructuras, puesto que comparten la misma zona, 
sus datos estarán disponibles simultáneamente en su totalidad, 

Si un fichero es relativo y se especificó la opción RELATIVE 
KEY, un acceso a un registro, realizado según la primera forma, in- 
troducirá en RELATIVE KEY el número del registro leído. Por el 
contrario, para ser operativa la segunda forma se requiere la es- 
pecificación del valor de la clave de acceso al registro que, si no 
existe, dará lugar a la activación de la instrucción INVALID KEY. 

A falta de especificación de la clave (KEY) se utilizará la que 
corresponde al primer registro del fichero. 

Si un fichero es del tipo con índice y existen claves de acce- 
so duplicadas, los registros correspondientes se procesarán en el 
mismo orden en que fueron escritos o reescritos. 

Con este tipo de fichero el acceso según la primera forma in- 
troducirá en RECORD KEY el valor correspondiente al registro 
procesado, mientras que, por el contrario, con la segunda forma 
es obligatorio especificar la clave del registro al que se quiere te- 
ner acceso. A falta de esta especificación se partirá del registro 
que corresponde al primer valor de la lista de las claves, 

Por consiguiente, una función especial es la que desempeña 
la instrucción START, que permite el "apuntamiento" al registro 
particular especificado por el valor de KEY, Su sintaxis, para fiche- 
ros relativos y con índice, es: 


START nombre fichero KEY ISEQUAL TO nombre_dato 
IS = 


IS GREATER THAN 
IS >THAN 
IS NOTLESS THAN 
IS NOT < 

INVALID KEY  instr._1 


en donde el valor de la clave RELATIVE KEY, válida para el ac- 
ceso al registro del fichero, se especifica por la comparación con- 
dicional indicada. 

A falta de especificaciones, se sobrentiende el valor EQUAL 
TO (IGUAL A) y se refiere al primer valor de la lista de las claves 
de acceso, 
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La comparación se realiza siguiendo las reglas de las compa- 
raciones alfabéticas, es decir, según el orden de la COLLATING 
SEQUENCE (ORDEN LEXICOGRAFICO DE CLASIFICACION DE 
LOS CARACTERES) y, en caso de comparaciones entre elemen- 
tos de diferente longitud, se limita al examen del número de ca- 
racteres menor entre los dos. 

La última operación de acceso a un fichero es la de borrado 
de un registro de un fichero abierto en 1-O. Su sintaxis es: 


DELETE nombre_del fichero RECORD 
INVALID KEY instr._1 P». 


La instrucción, después de READ, no afecta a la zona de me- 
moria asociada con el registro, pero imposibilita su acceso lógico 
en operaciones sucesivas. 

Para ficheros de acceso secuencial el registro borrado es el 
último leído, mientras que para ficheros de acceso aleatorio será 
el especificado por el valor de la clave (KEY). 
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COBOL: PROGRAMAS DE EJEMPLO 


onsideremos como programas de ejemplo uno 
que realice la carga de datos de almacén y otro 
que imprima los registros relativos. 


IDENTIFICATION DIVISION. 
PROGRAM-1D.ES-2. 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 


SOURCE COMPUTER. 
OBJECT COMPUTER. 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT ALMACEN 
ASSIGN TO RANDOM, "TARJETAS" 
ORGANIZATION INDEXED 
ACCESS SEQUENTIAL 
RECORD KEY CODIGO. 
SELECT PAGINA 
ASSIGN TO PRINT. 


DATA DIVISION. 


FILE SECTION. 
FD ALMACEN 
RECORD 32 CHARACTERS 


DATA RECORD ARTICULO. 
01 ARTICULO. 
02 CODIGO PIC X(6). 
02 DENOMINACION PIC X(20). 
02 UNIDAD-MEDIDA PIC X(6). 
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FD PAGINA 
RECORD 80 CHARACTERS 
DATA RECORD LINEA. 


01 LINEA. 
02 NUM-ORDEN PIC 9(6). 
02 FILLER PIC X(4). 
02 PCODIGO PIC X(6). 
02 FILLER PIC X(4). 
02 PDENOM PIC x(20). 
02 FILLER PIC X(4). 
02 PUNIDAD PIC X(6). 
02 FILLER PIPIC ESO): 
01 ROTULO REDEFINES LINEA. de 
02 CABECERA PIC X(50). 
02 NUM-PAG PIC X(4). 
02 FILLER PIC X(26) 
WORKING-STORAGE SECTION. 
77 PROGR PIC 9(6) VALUE 0. 
77 CONT-LINEAS PIC 9(2) VALUE 1. 
77 NPAG PIC 9(6) VALUE 0. 
77 MAX-PAG PIC 9(2) VALUE 60. 


77 CONFIRMACION PIC X. 
PROCEDURE DIVISION. 


INICIO. 
OPEN INPUT ALMACEN 
OUTPUT PAGINA. 
DISPLAY SPACE. 
MOVE SPACE TO LINEA. 
SOLICITUD-CONFIRMACION. ? 
DISPLAY "QUIERE REALIZAR LA IMPRESION?” . 
ACCEPT CONFIRMACION. 
IF CONFIRMACION EQUAL TO "N" OR CONFIRMACION 
EQUAL TO SPACE GO TO FIN. 
MOVE " ALMACEN Pagina" 
TO CABECERA. 
PREPARACION-IMPRESION. 
PERFORM TITULO THRU FIN-TITULO. 
LECTURA-FICHERO. 
READ ARTICULO AT END GO TO FIN. 
ADD 1 TO PROGR,CONT-LINEAS. 
IF CONT-LINEAS GREATER THAN MAX-PAG 
PERFORM TITULO THRU FIN-TITULO. 
MOVE PROGR TO NUM-ORDEN. 
MOVE CODIGO TO PCODIGO. 
MOVE DENOMINACION TO PDENOM. 
MOVE UNIDAD-MEDIDA- TO PUNIDAD. 
WRITE LINEA AFTER ADVANCING 1 LINE. 
GO TO. LECTURA-FICHERO. 
TITULO. 
ADD 1 TO NPAG. 


MOVE NPAG TO NUM-PAG. 
WRITE ROTULO AFTER ADVANCING PAGE. 
MOVE 0 TO CONT-LINEAS. 
FIN-TITULO. 
EXIT. 
FIN. a 
CLOSE ALMACEN PAGINA. 
DISPLAY SPACE. 
DISPLAY "FIN IMPRESION”. 
STOP RUN. 


IDENTIFICATION DIVISION. 
PROGRAM-ID.ES-1. 


ENVIRONMENT DIVISION. 


CONFIGURATION SECTION. 
SOURCE COMPUTER. 
OBJECT COMPUTER. 


INPUT-OUTPUT SECTION. 
FILE-CONTROL. 
SELECT ALMACEN 
ASSIGN TO RANDOM,” TARJETAS” 
ORGANIZATION INDEXED 
ACCESS DYNAMIC 
RECORD KEY CODIGO. 


DATA DIVISION. 
FILE SECTION. 
FD ALMACEN 
RECORD 32 CHARACTERS 
DATA RECORD ARTICULO. 
01 ARTICULO. 
02 CODIGO PIC X(6). 
02 DENOMINACION PIC X(20). 
02 UNIDAD-MEDIDA PIC X(6). 


WORKING-STORAGE SECTION. 
01 VISUALIZACION. 
02 INPUT-CODIGO PIC X(40) 
NALUEECODTIAD II A e 


02 FILLER PIC X(120). 
02 INPUT-DENOM PIC X(40) 
VALUE "“DENOMINACION —-—-". meras e 
02 FILLER PIC X(120). 
02 INPUT-MEDIDA PIC X(40) 


VALUE: +UNTDAD DESMEDIDA. 0. nde ae AS 
01 PANTALLA-—INPUT REDEFINES VISUALIZACION. 


02 FILLER PIC X(34). 
02 ICODIGO PIC X(6). 
02 FILLER PIC X(140). 
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02 IDENOM PIC X(20). 
02 FILLER PIC X(154). 
02 IMEDIDA PIC X(6). 


PROCEDURE DIVISION. 


INICIO. 
OPEN I-0O ALMACEN. 
DISPLAY SPACE. 
DISPLAY VISUALIZACION. 
CARGA. - 
DISPLAY PANTALLA-INPUT. . 
ACCEPT PANTALLA-INPUT. 
IF CODIGO EQUAL TO "000000" GO TO FIN. 
IF IDENOM EQUAL TO SPACE GO TO CARGA. 
IF IDENOM NOT EQUAL TO SPACE AND IMEDIDA EQUAL 
TO SPACE GO TO CARGA. 
MOVE ICODIGO TO CODIGO. 
MOVE IDENOM TO DENOMINACION. 
MOVE IMEDIDA TO UNIDAD-MEDIDA. 
GO TO CARGA. 
FIN. 
CLOSE ALMACEN. 
DISPLAY SPACE. 
DISPLAY "FIN CARGA". 
STOP RUN. 
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Funciones intrínsecas del Fortran 


os parámetros de las funciones están indicados 
por las abreviaturas siguientes: 


I entero 
R real 
D doble precisión 
C complejo 
S carácter 
Nombre de la función Tipo Definición 
ABS(1) o IABS() Entero Valor absoluto! 
ABS(R) , Real Valor absoluto:R: 
ABS(D) o DABS(D) ¿ D.Prec. Valor absoluto:D: 
ABSC(C) Real Raíz cuadrada (REAL(C) +AIMAG(C)) 
ACOS(R) Real Arco seno (R) 
ACOS(D) o DACOS(D) D.Prec. Arco seno (D) 
AINT(R) Real  Truncación REAL(INT(R)) 
AINT(D) o DINT(D) D.Prec. Truncación REAL(INT(D)) 
ANINT(R) Real Entero próximo REAL(INT(R+/-0,5)) 
ANINT(D) o DNINT(D) D.Prec. Entero próximo REAL(INT(D+/-0,55)) 
ASIN(R) Real Arco seno (R) 
ASIN(D) o DASIN(D) D.Prec. Arco seno (D) 
ATAN(R) Real Arco tangente (R) 
ATAN(D) o DATAN(R) D.Prec. Arco tangente (D) 
ATAN2(R1R2) Real Arco tangente (R1/R2) 
ATAN2(D1,D2) o 
DATAN2(D1,D2) D.Prec. Arco tangente (D1/D2) 
CMPLX(I) Compl. Complejo (REAL(1)0) 
CMPLX(R) Compl. Complejo (REAL(R).0) 
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Nombre de la función Tipo Definición 


CMPLX(D) Compl. Complejo (REAL(D)0) 
CMPLX(11,12) Compl. Complejo (REAL(I1),REAL(12) 
CMPLX(R1,R2) Compl. Complejo (REAL(R1)REAL(R2) 
CMPLX(D1D2) Compl. Complejo (REAL(D1)¡REAL(D2) 
CMPLX(C) Compl. Complejo C 

COS(R) Real Coseno (R) 

COS(D) o DCOS(D) D.Prec. Coseno (D) 

COS(C) o CCOS(C) Compl. Coseno (C). 

COSH(R) Real Cos, hiperb. (R) 

COSH(D) o DCOSH(D) D.Prec. Cos. hiperb. (D) 

DBLE(D D.Prec. D.Prec. de REAL(D) 

DBLE(R) D.Prec. D.Prec. de REAL(R) 

DBLE(C) D.Prec. D.Prec. de REAL(C) 

DBLE(D) D.Prec. D.Prec. D 

DIM(11,12) o IDIM(11,12) Entero Difpositiva MAX((11-12)0) 
DIM(R1,R2) Real  Difpositiva MAX((R1-R2)0) 
DIM(D1,D2) o DDIM(D1,D2) D.Prec. Difpositiva MAX((D1-D2),0) 
EXP(R) Real er 

EXP(D) D.Prec. eb 

EXP(C) Compl. el 

FLOAT() Real  REAL(I) 

IFIX(R) Entero INT(R) 

INT(R) Entero Entero de REAL(I) 

INT(D) Entero Entero de REAL(D) 

INT(C) Entero Entero de REAL(C) 

INT(D Entero Entero l 

LOG(R) Real Log.natural (R) 

LOG(D) o DLOG(D) D.Prec. Log.natural (D) 

LOG(C) o CLOG(C) Compl. Log.natural (C) 

LOG10(R) Real Log.decimal (R) 

LOG10(D) o DLOGI0(D) D.Prec. Log.decimal (D) 

MAX(11,12) o MAXO(1112) Entero Máximo entre 1l e 12 
MAX(R1,R2) Real Máximo entre R1 y R2 
MAX(D1,D2) o DMAX(D1,D2) D.Prec. Máximo entre Dl y D2 
MIN(12) o MINO(11,12) Entero Mínimo entre Il e 12 
MIN(R1,R2) o Real Mínimo entre Rl y R2 
MIN(D1,D2) o DMIN(D1,D2) D.Prec. Mínimo entre Dl y D2 
MOD(11,12) Entero Resto: 11-INT(1/12)*12 
MOD(R1,R2) o AMOD(R1,R2) Real Resto: R1-INT(R1/R2)*R2 
MOD(D1,D2) o DMOD(D1,D2) D.Prec. Resto: D1-INT(D1/D2)*D2 | 
NINT(R) Entero Entero próximo INT(ANINT(R)) 
NINT(D) o IDNINT(D) Entero Entero próximo INT(ANINT(D)) 
REAL(D Real Real de l 

REAL(D) Real Real de D 

REAL(R) Real Real deR 

REAL(C) Real Real de C 

SIGN(1,12) o ISIGN(11/12) Entero Il si 12>0, -I1 si 12<0 
SIGN(R1R2) Real  RlsiR2>, -R] si R2<0 
SIGN(D1,D2) o DSIGN(D1,D2) D.Prec. Dl si D2>0, -Dl si D2<0 
SIN(R) Real Seno (R) , 
SIN(D) o DSIN(D) D.Prec. Seno (D) 

SIN(C) o CSIN(C) Compl. Seno (C) 

SINH(R) Real Seno hiperb. (R) 

SINH(D) o DSINH(D) D.Prec. Seno hiperb. (D) 

SINH(C) o CSINH(C) Compl. Seno hiperb. (C) 
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e mm K<Á 


Nombre de la función Tipo Definición 


SNGL(D) 
SQRT(R) 


SORT(D) o DSQRT(D) 
SORT(C) o CSORT(C) 


TAN(R) 


TAN(D) o DTANH(D) 


TANH 


(R) 
TANH(D) o DTANH(D) 


AIMAG(C) 
AMAXO(1112...In) 
AMINO(11,2...1n) 
CHAR(I) 
CONJG(C) 
DPROD(R1R2) 
¡CHAR(S) 
INDEX(S1.S2) 
LEN(S) 
LGE(S152) 
LGT(S1,S2) 
LLE(S1,S2) 
LLT(S1,S2) 
MAX1(RLR2,..Rn) 
MINI(R1R2...Rn) 


Real 
Real 
D.Prec. 


Compl. 


Real 
D.Prec. 
Real 
D.Prec. 
Real 
Real 
Real 
Caract. 


Compl. 


D.Prec. 
Entero 
Entero 
Entero 
Lógico 
Lógico 
Lógico 
Lógico 
Entero 
Entero 


REAL(D) 

Raíz cuadrada (R) 

Raíz cuadrada (D) 

Raíz cuadrada (C) 

Tangente (R) 

Tangente (D) 

Tangente hiperb.(R) 
Tangente hiperb.(D) 

Parte imaginaria de C 
REAL(MAX(11 12...In)) 
REAL(MIN(11.12,..In)) 
Carácter correspondiente a 1 
Conjugado: REAL(C),-AIMAG(C) 
R1*R2 en Doble Precisión 
N2 de orden de S en la tabla 
Posición subcadena $2 en Sl 
N? de caracteres de S 
Verdadero si Sl > 0 = S2 
Verdadero si S1 > S2 
Verdadero si S1 < 0 = S2 
Verdadero si S1 < S2 
INT(MAX(R 1,R2,...Rn)) 
INT(MIN(R L,R2....Rn)) 
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rente a la generalidad de otros lenguajes, 
como el archiconocido BASIC, el FOR- 
TRAN y el COBOL presentan una gran es- 
pecialización. Esto supone ventajas e in- 
convenientes, indudablemente. Por un 
lado, dificulta su conocimiento al gran pú- 
blico y restringe su campo de acción, 
pero, por otro, los hace muy recomenda- 
bles en ciertas aplicaciones. 
Si tiene interés en saber algo más acerca de los lengua- 
jes mayoritariamente usados en las aplicaciones de cál- 
culo científico (FORTRAN) y comercial (COBOL) lea el 
contenido de este volumen de la B.B.I. 


395 pts. 
(incluido IVA) 


